diff --git a/src/Juvix/Compiler/Concrete/Translation/FromSource.hs b/src/Juvix/Compiler/Concrete/Translation/FromSource.hs
index 77476e2d5a..5a8d63b0d5 100644
--- 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 ::