From 04ce88ce93523988ec1dc6775ac6a4b439e90913 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 24 Jan 2024 21:31:24 +0100 Subject: WIP rewrite code transform typing --- src/AST/Weaken.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/AST') diff --git a/src/AST/Weaken.hs b/src/AST/Weaken.hs index 56b7a74..dd121fa 100644 --- a/src/AST/Weaken.hs +++ b/src/AST/Weaken.hs @@ -18,6 +18,7 @@ data env :> env' where WCopy :: env :> env' -> (t : env) :> (t : env') WPop :: (t : env) :> env' -> env :> env' WThen :: env1 :> env2 -> env2 :> env3 -> env1 :> env3 + WClosed :: '[] :> env deriving instance Show (env :> env') (.>) :: env2 :> env3 -> env1 :> env2 -> env1 :> env3 -- cgit v1.2.3-70-g09d2