Format .hs all non-IR files

Author: j-hui

app/Main.hs

@@ -8,57 +8,55 @@ exiting with status code, etc.
 module Main where
 
 import qualified Codegen
-import           Common.Compiler                ( passIO )
-import           Common.Default                 ( Default(..) )
+import Common.Compiler (passIO)
+import Common.Default (Default (..))
 import qualified Front
 import qualified IR
 
-import           Control.Monad                  ( unless
-                                                , when
-                                                )
-import           System.Console.GetOpt          ( ArgDescr(..)
-                                                , ArgOrder(..)
-                                                , OptDescr(..)
-                                                , getOpt
-                                                , getOpt'
-                                                , usageInfo
-                                                )
-import           System.Environment             ( getArgs
-                                                , getProgName
-                                                )
-import           System.Exit                    ( exitFailure
-                                                , exitSuccess
-                                                )
-import           System.IO                      ( hPutStr
-                                                , hPutStrLn
-                                                , stderr
-                                                )
+import System.Console.GetOpt (
+  ArgDescr (..),
+  ArgOrder (..),
+  OptDescr (..),
+  getOpt,
+  getOpt',
+  usageInfo,
+ )
+import System.Environment (getArgs, getProgName)
+import System.Exit (exitFailure, exitSuccess)
+import System.IO (hPutStr, hPutStrLn, stderr)
+
+import Control.Monad (unless, when)
+
 
 -- | Print the usage message, collating options from each compiler stage.
 usageMessage :: IO ()
 usageMessage = do
   prg <- getProgName
   let header = "Usage: " ++ prg ++ " [options] <filename>"
-  hPutStr stderr $ unlines
-    [ header
-    , ""
-    , "When `-' is specified as the filename, input is read from stdin."
-    , usageInfo "" options
-    , usageInfo "" Front.options
-    , usageInfo "" IR.options
-    , usageInfo "" Codegen.options
-    ]
+  hPutStr stderr $
+    unlines
+      [ header
+      , ""
+      , "When `-' is specified as the filename, input is read from stdin."
+      , usageInfo "" options
+      , usageInfo "" Front.options
+      , usageInfo "" IR.options
+      , usageInfo "" Codegen.options
+      ]
+
 
 -- | CLI options.
 options :: [OptDescr (IO ())]
 options =
   [Option "h" ["help"] (NoArg $ usageMessage >> exitSuccess) "Print help"]
 
+
 -- | Read input from file or stdin.
 readInput :: String -> IO String
-readInput "-"      = getContents
+readInput "-" = getContents
 readInput filename = readFile filename
 
+
 -- | Compiler executable entry point.
 main :: IO ()
 main = do
@@ -72,9 +70,9 @@ main = do
         getOpt' RequireOrder IR.options $ iArgs' ++ iArgs
       (cOpts, filenames, cErr) =
         getOpt RequireOrder Codegen.options $ cArgs' ++ cArgs
-      errors      = cliErrors ++ fErr ++ iErr ++ cErr
-      frontOpts   = foldr ($) def fOpts
-      irOpts      = foldr ($) def iOpts
+      errors = cliErrors ++ fErr ++ iErr ++ cErr
+      frontOpts = foldr ($) def fOpts
+      irOpts = foldr ($) def iOpts
       codegenOpts = foldr ($) def cOpts
 
   mapM_ return cliActions
@@ -94,12 +92,12 @@ main = do
     usageMessage
     exitFailure
 
-  input            <- readInput $ head filenames
+  input <- readInput $ head filenames
   (cStr, warnings) <-
-    passIO
-    $   Front.run frontOpts input
-    >>= IR.run irOpts
-    >>= Codegen.run codegenOpts
+    passIO $
+      Front.run frontOpts input
+        >>= IR.run irOpts
+        >>= Codegen.run codegenOpts
   unless (null warnings) $ do
     hPutStr stderr "Encountered warnings:"
     hPutStr stderr $ show warnings

src/Codegen.hs

@@ -5,41 +5,46 @@ how it is represented.
 -}
 module Codegen where
 
-import qualified Common.Compiler               as Compiler
-import           Common.Default                 ( Default(..) )
+import qualified Common.Compiler as Compiler
+import Common.Default (Default (..))
 
-import qualified IR.IR                         as I
+import qualified IR.IR as I
 
-import qualified Text.PrettyPrint.Mainland     as C
-import qualified Text.PrettyPrint.Mainland.Class
-                                               as C
+import qualified Text.PrettyPrint.Mainland as C
+import qualified Text.PrettyPrint.Mainland.Class as C
+
+import Codegen.Codegen (genProgram)
+import System.Console.GetOpt (
+  ArgDescr (..),
+  OptDescr (..),
+ )
 
-import           Codegen.Codegen                ( genProgram )
-import           System.Console.GetOpt          ( ArgDescr(..)
-                                                , OptDescr(..)
-                                                )
 
 -- | Operation modes for the codegen compiler stage.
 data Mode = Continue
   deriving (Eq, Show)
 
+
 -- | Compiler options for the codegen compiler stage.
 data Options = Options
-  { mode      :: Mode
+  { mode :: Mode
   , textWidth :: Int
   }
   deriving (Eq, Show)
 
+
 instance Default Options where
-  def = Options { mode = Continue, textWidth = 120 }
+  def = Options{mode = Continue, textWidth = 120}
+
 
 -- | CLI options for the codegen compiler stage.
 options :: [OptDescr (Options -> Options)]
 options =
-  [ Option ""
-           ["codegen-textwidth"]
-           (ReqArg (\tw o -> o { textWidth = read tw }) "<textwidth>")
-           "Line width for pretty-printing the generated C code."
+  [ Option
+      ""
+      ["codegen-textwidth"]
+      (ReqArg (\tw o -> o{textWidth = read tw}) "<textwidth>")
+      "Line width for pretty-printing the generated C code."
   ]