Parsing overhaul (slightly better errors)

1 files changed, 1 insertions, 3 deletions

diff --git a/DSL.hs b/DSL.hs
index 54efb28..5d83035 100644
--- a/DSL.hs
+++ b/DSL.hs
@@ -5,9 +5,7 @@ import DSL.Parsing
 import DSL.Interpretation
 
 interpretFromString :: String -> IO ()
-interpretFromString = maybe err interpret . stringToProgram
-  where
-    err = putStrLn "Unable to parse program"
+interpretFromString = either putStrLn interpret . stringToProgram
 
 interpretFromFile :: FilePath -> IO ()
 interpretFromFile path = readFile path >>= interpretFromString