1 files changed, 2 insertions, 2 deletions
diff --git a/DSL/Interpretation.hs b/DSL/Interpretation.hs
index d9c53bd..82a8ef2 100644
--- a/DSL/Interpretation.hs
+++ b/DSL/Interpretation.hs
@@ -98,8 +98,8 @@ evalBlocks (BWhile c b:bs) m       = applyWhile c b m >>= evalBlocks bs
 
 interpret :: ProcTable -> IO ()
 interpret t = case mergeProcTables stdlib t of
-  Nothing -> putStrLn "Failed to include stdlib, duplicate proc definition?"
-  Just t' -> case M.lookup entrypoint t' of
+  Left e   -> putStrLn e
+  Right t' -> case M.lookup entrypoint t' of
     Nothing -> putStrLn "No MAIN proc defined, aborting."
     Just b  -> () <$ evalBlocks b newMachine{ pTable=t' }