diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2024-01-24 21:31:24 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2024-01-24 21:31:24 +0100 |
| commit | 04ce88ce93523988ec1dc6775ac6a4b439e90913 (patch) | |
| tree | 14366c17e0cdc66f4b624cfcb641b1eeb1eed5f9 /src/AST/Weaken.hs | |
| parent | b06fff729063aaf23500ba1c417520185a2cf7c0 (diff) | |
WIP rewrite code transform typing
Diffstat (limited to 'src/AST/Weaken.hs')
| -rw-r--r-- | src/AST/Weaken.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |