diff options
Diffstat (limited to 'haskell/Reader.hs')
| -rw-r--r-- | haskell/Reader.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |