format

anoma · Sep 14, 2022 · d71ecf5 · d71ecf5
1 parent 54857a2
commit d71ecf5
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Juvix/Compiler/Abstract/Extra/DependencyBuilder.hs b/src/Juvix/Compiler/Abstract/Extra/DependencyBuilder.hs
@@ -109,10 +109,10 @@ goPattern n p = case p ^. patternArgPattern of
   PatternEmpty -> return ()
   PatternConstructorApp a -> goApp a
   where
-  goApp :: ConstructorApp -> Sem r ()
-  goApp (ConstructorApp ctr ps) = do
-    addEdge n (ctr ^. constructorRefName)
-    mapM_ (goPattern n) ps
+    goApp :: ConstructorApp -> Sem r ()
+    goApp (ConstructorApp ctr ps) = do
+      addEdge n (ctr ^. constructorRefName)
+      mapM_ (goPattern n) ps
 
 goExpression :: forall r. Member (State DependencyGraph) r => Name -> Expression -> Sem r ()
 goExpression p e = case e of