Inline 'App.hs/fromFile' to improve code clarity

Author: ssoelvsten

compiler/app/Main.hs

@@ -239,16 +239,15 @@ main = do
     ([TextIRMode], [], []) -> fromStdinTextIR
     ([JSONIRMode], [], []) -> fromStdinJsonIR
 
-    (o, [file], []) | optionsOK o ->
-      fromFile o file
-
+    (o, [file], []) | optionsOK o -> do
+      input <- readFile file
+      process o (Just file) input
 
     (_,_, errs) -> die $ concat errs ++ compilerUsage
  where
    compilerUsage = usageInfo header options
      where header = "Usage: <compiler> [OPTION...] file"
 
-
    -- Check options for consistency
    optionsOK :: [Flag] -> Bool
    optionsOK o | length o >=2 =
@@ -257,13 +256,6 @@ main = do
    optionsOK _ = True
 
 
-
-fromFile :: [Flag] -> String -> IO ExitCode
-fromFile flags fname = do
-  input <- readFile fname
-  process flags (Just fname) input
-
-
 -- utility functions for printing things out
 
 hrWidth = 70