fsharp: step7: Cleaned up error handling.

[jackhill/mal.git] / fsharp / step2_eval.fs

diff --git a/fsharp/step2_eval.fs b/fsharp/step2_eval.fs
index de04622..2e05d18 100644 (file)
--- a/fsharp/step2_eval.fs
+++ b/fsharp/step2_eval.fs
@@ -5,7 +5,7 @@ module REPL
         try
             Reader.read_str input
         with
-        | Types.ReaderError(msg) ->
+        | Error.ReaderError(msg) ->
             printfn "%s" msg
             []
 
@@ -13,7 +13,8 @@ module REPL
         try
             Some(Eval.eval env ast)
         with
-        | Types.EvalError(msg) ->
+        | Error.EvalError(msg) 
+        | Error.ReaderError(msg) ->
             printfn "%s" msg
             None