diff options
-rw-r--r-- | Spear/Setup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Spear/Setup.hs b/Spear/Setup.hs index e7917cf..0326c4b 100644 --- a/Spear/Setup.hs +++ b/Spear/Setup.hs | |||
@@ -54,6 +54,6 @@ setupIO = MT.lift . MT.lift | |||
54 | 54 | ||
55 | 55 | ||
56 | -- | Throw the given error string if given 'Nothing'. | 56 | -- | Throw the given error string if given 'Nothing'. |
57 | assertMaybe :: Maybe a -> String -> Setup () | 57 | assertMaybe :: Maybe a -> String -> Setup a |
58 | assertMaybe Nothing err = setupError err | 58 | assertMaybe Nothing err = setupError err |
59 | assertMaybe _ _ = return () | 59 | assertMaybe (Just x) _ = return x |