Spacing.

github · Mar 25, 2024 · dff78b1 · dff78b1
1 parent 54f3aa7
commit dff78b1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/semantic-analysis/src/Analysis/Syntax/Python.hs b/semantic-analysis/src/Analysis/Syntax/Python.hs
@@ -85,7 +85,7 @@ eval eval = \case
     -- FIXME: RaiseV2
     -- FIXME: whatever the second field is
   Statement (Py.StmtExpr e sp) -> setSpan sp (eval (Expr e))
-  Statement (Py.Fun n ps _r ss sp) -> let ps' = mapMaybe (\case { Py.Param n _ _ _ -> Just (ident n) ; _ -> Nothing}) ps in setSpan sp $ letrec (ident n) (dabs ps' (foldr (\ (p, a) m -> let' p a m) (suite ss) . zip ps'))
+  Statement (Py.Fun n ps _r ss sp) -> let ps' = mapMaybe (\case { Py.Param n _ _ _ -> Just (ident n) ; _ -> Nothing }) ps in setSpan sp $ letrec (ident n) (dabs ps' (foldr (\ (p, a) m -> let' p a m) (suite ss) . zip ps'))
   Expr (Py.Var n sp) -> setSpan sp $ let n' = ident n in lookupEnv n' >>= maybe (dvar n') fetch
   Expr (Py.Bool b sp) -> setSpan sp $ dbool b
   Expr (Py.Strings ss sp) -> setSpan sp $ dstring (pack (mconcat ss))