remove comments

anoma · Aug 2, 2022 · 91733f6 · 91733f6
1 parent 8539883
commit 91733f6
Showing 1 changed file with 4 additions and 12 deletions.
diff --git a/src/Juvix/Compiler/Pipeline.hs b/src/Juvix/Compiler/Pipeline.hs
@@ -45,7 +45,7 @@ typechecking ::
   Sem r Internal.InternalTypedResult
 typechecking =
   do
-    Concrete.fromSource
+        Concrete.fromSource
     >=> Abstract.fromConcrete
     >=> Internal.fromAbstract
     >=> Internal.arityChecking
@@ -55,25 +55,17 @@ toC ::
   Members PipelineEff r =>
   EntryPoint ->
   Sem r C.MiniCResult
-toC = do
-  typechecking >=> C.fromInternal
+toC = typechecking >=> C.fromInternal
 
 toHaskell ::
   Members PipelineEff r =>
   EntryPoint ->
   Sem r Haskell.Context
-toHaskell =
-  do
-    typechecking
+toHaskell = do
+  typechecking
     >=> Mono.fromInternal
     >=> Haskell.fromMono
 
--- typechecking >=> Mono.fromInternal >=> Haskell.fromMono
--- typechecking >=> C.fromInternal
--- html =  Concrete.fromSource
---     >=> Abstract.fromConcrete
---     >=> Html.fromConcrete
-
 --------------------------------------------------------------------------------
 
 runIOEither :: Sem PipelineEff a -> IO (Either JuvixError a)