From 5400d4bf5e7fe7f968a4553f55101de962a39ef7 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Wed, 24 Dec 2014 23:17:38 -0700
Subject: Haskell: add error handling and try*/catch*.

Achieve self-hosting!
---
 haskell/Reader.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'haskell/Reader.hs')

diff --git a/haskell/Reader.hs b/haskell/Reader.hs
index 377c2f4..91ce63d 100644
--- a/haskell/Reader.hs
+++ b/haskell/Reader.hs
@@ -149,7 +149,7 @@ read_form =  do
      <|> read_atom
     return $ x
 
-read_str :: String -> IO MalVal
+read_str :: String -> IOThrows MalVal
 read_str str = case parse read_form "Mal" str of
-    Left err -> error $ show err
+    Left err -> throwStr $ show err
     Right val -> return val
-- 
cgit v1.2.3