Inline helper function.

seagreen · Nov 1, 2019 · 6df4aea · 6df4aea
1 parent cb2c97b
commit 6df4aea
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 11 deletions.
diff --git a/bowtie/Main.hs b/bowtie/Main.hs
@@ -11,8 +11,12 @@ main = do
   Config name <- args
   appSource <- TIO.readFile name
   libFiles <- Interpret.getLibFiles "example-lib"
-  untypedValue <- Interpret.interpretProgramIO libFiles (name, appSource)
-  TIO.putStrLn (show untypedValue)
+  case Interpret.interpretProgram libFiles (name, appSource) of
+    Left e ->
+      exitWithError (Interpret.prettyError e)
+
+    Right untypedValue ->
+      TIO.putStrLn (show untypedValue)
 
 data Config = Config FilePath
 

diff --git a/bowtie/src/Bowtie/Interpret.hs b/bowtie/src/Bowtie/Interpret.hs
@@ -70,15 +70,6 @@ prettyError err =
     TypeError e ->
       "Type error: " <> show e
 
-interpretProgramIO :: [(FilePath, Text)] -> (FilePath, Text) -> IO Untyped.Expr
-interpretProgramIO libFiles appFile =
-  case interpretProgram libFiles appFile of
-    Left e -> do
-      exitWithError (prettyError e)
-
-    Right a ->
-      pure a
-
 -- | NOTE: Environment is just the data types.
 sourceToCore :: Text -> Either IError (Environment, Core.Expr)
 sourceToCore src = do