Document and fix code style

2023-02-18 13:41:38 +01:00 · 2023-02-18 13:41:38 +01:00 · 3efb27ac0c
commit 3efb27ac0c
parent b8aedd541d
3 changed files with 53 additions and 53 deletions
--- a/src/TypeChecker.hs
+++ b/src/TypeChecker.hs
@ -41,8 +41,8 @@ checkBind cxt b =
            (rhs', t_rhs) <- infer cxt rhs
            unless (typeEq t_rhs t) . throwError $ typeErr name t t_rhs
            pure $ T.Bind (name, t) (zip parms ts_parms) rhs'
-        where
-          ts_parms = fst $ partitionType (length parms) t
+          where
+            ts_parms = fst $ partitionType (length parms) t

 -- | @ f x y = rhs ⇒ f = \x.\y. rhs @
 expandLambdas :: Bind -> Bind