Fixed: TyVarBndr -> TyVarBndrUnit

haskell-effectful · Feb 3, 2022 · 79d16be · 79d16be
1 parent 6c3e716
commit 79d16be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/effectful-th/src/Effectful/TH.hs b/effectful-th/src/Effectful/TH.hs
@@ -116,7 +116,7 @@ toFunctionName cname = let
   x : xs = nameBase cname
   in mkName $ toLower x : xs
 
-effVars :: [TyVarBndrUnit] -> ([TyVarBndr], TyVarBndr, TyVarBndr)
+effVars :: [TyVarBndrUnit] -> ([TyVarBndrUnit], TyVarBndrUnit, TyVarBndrUnit)
 effVars = go mempty
   where
     go _ [] = error "Type is no Effect !"