formatting

2024-02-09 18:07:08 -07:00
parent 615a6f1b07
commit 58838b9527
1 changed files with 1 additions and 1 deletions
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -739,7 +739,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
        compileE g e = compileC g e ++ [Eval]

        compileD :: Env -> [Alter'] -> [(Tag, Code)]
-        compileD g as = fmap (compileA g) as
+        compileD g = fmap (compileA g)

        compileA :: Env -> Alter' -> (Tag, Code)
        compileA g (Alter (AltTag t) as e) = (t, [Split n] <> c <> [Slide n])