make ormolu happy

anoma · Dec 8, 2022 · f7c397b · f7c397b
1 parent a3f3810
commit f7c397b
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 16 deletions.
diff --git a/src/Juvix/Compiler/Core/Transformation.hs b/src/Juvix/Compiler/Core/Transformation.hs
@@ -13,9 +13,9 @@ import Juvix.Compiler.Core.Transformation.Base
 import Juvix.Compiler.Core.Transformation.Eta
 import Juvix.Compiler.Core.Transformation.Identity
 import Juvix.Compiler.Core.Transformation.LambdaLifting
+import Juvix.Compiler.Core.Transformation.MoveApps
 import Juvix.Compiler.Core.Transformation.RemoveTypeArgs
 import Juvix.Compiler.Core.Transformation.TopEtaExpand
-import Juvix.Compiler.Core.Transformation.MoveApps
 
 applyTransformations :: [TransformationId] -> InfoTable -> InfoTable
 applyTransformations ts tbl = foldl' (flip appTrans) tbl ts

diff --git a/src/Juvix/Compiler/Core/Transformation/MoveApps.hs b/src/Juvix/Compiler/Core/Transformation/MoveApps.hs
@@ -14,21 +14,23 @@ convertNode = dmap go
     go node = case node of
       NApp {} ->
         let (tgt, args) = unfoldApps node
-        in
-        case tgt of
-          NLet lt@(Let {..}) ->
-            NLet lt{_letBody = mkApps _letBody (map (second (shift 1)) args)}
-          NCase cs@(Case {..}) ->
-            NCase cs{
-              _caseBranches =
-                map (\br@CaseBranch{..} ->
-                    br{
-                      _caseBranchBody = mkApps _caseBranchBody (map (second (shift _caseBranchBindersNum)) args)
-                      })
-                    _caseBranches,
-              _caseDefault = fmap (`mkApps` args) _caseDefault
-            }
-          _ -> node
+         in case tgt of
+              NLet lt@(Let {..}) ->
+                NLet lt {_letBody = mkApps _letBody (map (second (shift 1)) args)}
+              NCase cs@(Case {..}) ->
+                NCase
+                  cs
+                    { _caseBranches =
+                        map
+                          ( \br@CaseBranch {..} ->
+                              br
+                                { _caseBranchBody = mkApps _caseBranchBody (map (second (shift _caseBranchBindersNum)) args)
+                                }
+                          )
+                          _caseBranches,
+                      _caseDefault = fmap (`mkApps` args) _caseDefault
+                    }
+              _ -> node
       _ -> node
 
 moveApps :: InfoTable -> InfoTable