Fix readMaybe

jaspervdj · Oct 24, 2012 · 4767641 · 4767641
1 parent ce987d0
commit 4767641
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/digestive-functors/src/Text/Digestive/Util.hs b/digestive-functors/src/Text/Digestive/Util.hs
@@ -4,9 +4,11 @@ module Text.Digestive.Util
     ) where
 
 
+--------------------------------------------------------------------------------
+import           Data.Maybe (listToMaybe)
+
+
 --------------------------------------------------------------------------------
 -- | 'read' in the 'Maybe' monad.
 readMaybe :: Read a => String -> Maybe a
-readMaybe str = case readsPrec 1 str of
-    [(x, "")] -> Just x
-    _         -> Nothing
+readMaybe str = listToMaybe [x | (x, "") <- readsPrec 1 str]