style

anoma · Apr 18, 2024 · 333be40 · 333be40
1 parent a76bbe2
commit 333be40
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Juvix/Compiler/Concrete/Translation/FromSource.hs b/src/Juvix/Compiler/Concrete/Translation/FromSource.hs
@@ -53,9 +53,10 @@ fromSource ::
   Sem r ParserResult
 fromSource e = mapError (JuvixError @ParserError) $ do
   (_resultParserState, _resultModule) <-
-    runParserResultBuilder mempty $
-      evalTopNameIdGen defaultModuleId $
-        runReader e getParsedModuleTop
+    runParserResultBuilder mempty
+      . evalTopNameIdGen defaultModuleId
+      . runReader e
+      $ getParsedModuleTop
   return ParserResult {..}
   where
     getParsedModuleTop ::