Replace partial fromJust with maybe.
authorTim McGilchrist <timmcgil@gmail.com>
Thu, 14 Apr 2016 00:03:33 +0000 (10:03 +1000)
committerTim McGilchrist <timmcgil@gmail.com>
Thu, 14 Apr 2016 00:03:33 +0000 (10:03 +1000)
Control/Monad/Reader.hs

index 7f1039b..70db0f6 100644 (file)
@@ -96,7 +96,7 @@ with 'runReader', how to access the Reader data with 'ask' and 'asks'.
 >-- The selector function to  use with 'asks'.
 >-- Returns value of the variable with specified name.
 >lookupVar :: String -> Bindings -> Int
->lookupVar name bindings = fromJust (Map.lookup name bindings)
+>lookupVar name bindings = maybe 0 id (Map.lookup name bindings)
 >
 >sampleBindings = Map.fromList [("count",3), ("1",1), ("b",2)]
 >