From 1f7ed2ee02222108684cfde8078e7a182f734a61 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 30 Aug 2024 22:45:46 +0200 Subject: WIP Build1 --- src/AST/Weaken.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/AST/Weaken.hs') diff --git a/src/AST/Weaken.hs b/src/AST/Weaken.hs index 432b687..78577ee 100644 --- a/src/AST/Weaken.hs +++ b/src/AST/Weaken.hs @@ -28,7 +28,7 @@ deriving instance Show (Idx env t) data env :> env' where WId :: env :> env - WSink :: env :> (t : env) + WSink :: forall t env. env :> (t : env) WCopy :: env :> env' -> (t : env) :> (t : env') WPop :: (t : env) :> env' -> env :> env' WThen :: env1 :> env2 -> env2 :> env3 -> env1 :> env3 -- cgit v1.2.3-70-g09d2