Fix linter errors

axellang · Jul 23, 2022 · 8da784a · 8da784a
1 parent c2cabd3
commit 8da784a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 9 deletions.
diff --git a/src/Axel/Eff/Process.hs b/src/Axel/Eff/Process.hs
@@ -42,7 +42,7 @@ runProcess =
                   , P.std_out = P.CreatePipe
                   , P.std_err = P.CreatePipe
                   }
-        -- The handles will always be created because of `CreatePipe`, so we can safely unwrap them.
+          -- The handles will always be created because of `CreatePipe`, so we can safely unwrap them.
           (Just stdinHandle, Just stdoutHandle, Just stderrHandle, processHandle) <-
             P.createProcess config
           pure (stdinHandle, stdoutHandle, stderrHandle, processHandle)

diff --git a/src/Axel/Eff/Random.hs b/src/Axel/Eff/Random.hs
@@ -19,4 +19,4 @@ runRandom :: (IOE :> effs) => Eff (Random ': effs) a -> Eff effs a
 runRandom =
   interpret $ \_ ->
     \case
-      Random -> liftIO $ R.randomIO
+      Random -> liftIO R.randomIO
diff --git a/src/Axel/Haskell/Project.hs b/src/Axel/Haskell/Project.hs
@@ -50,7 +50,7 @@ import qualified Effectful.State.Static.Local as Eff
 type ProjectPath = FilePath
 
 newProject ::
-     '[ Effs.FileSystem, Effs.Process, Effs.Resource] :>> effs
+     ('[ Effs.FileSystem, Effs.Process, Effs.Resource] :>> effs)
   => Text
   -> Eff.Eff effs ()
 newProject projectName = do
@@ -76,9 +76,7 @@ data ProjectFileType
   | Backend
 
 getProjectFiles ::
-     (Effs.FileSystem :> effs)
-  => ProjectFileType
-  -> Eff.Eff effs [FilePath]
+     (Effs.FileSystem :> effs) => ProjectFileType -> Eff.Eff effs [FilePath]
 getProjectFiles fileType = do
   files <-
     concatMapM
@@ -97,9 +95,7 @@ transpileProject =
   Ghci.withGhci $ do
     axelFiles <- getProjectFiles Axel
     initialModuleInfo <- readModuleInfo axelFiles
-    moduleInfo <-
-      Eff.execState initialModuleInfo $ mapM transpileFileInPlace axelFiles
-    pure moduleInfo
+    Eff.execState initialModuleInfo $ mapM transpileFileInPlace axelFiles
 
 buildProject ::
      ('[ Effs.Console, Eff.Error Error, Effs.FileSystem, Effs.Ghci, Effs.Log, Effs.Process, Effs.Resource] :>> effs)