1. Bryan O'Sullivan
  2. text-icu

Commits

Robin Green  committed 57684ed

Fix issue 2

  • Participants
  • Parent commits 5621f38
  • Branches default

Comments (0)

Files changed (1)

File Data/Text/ICU/Regex/Pure.hs

View file
 find re0 haystack = unsafePerformIO .
   matching re0 haystack $ \re -> do
     m <- IO.findNext re
-    return $! if m then Nothing else Just (Match re 0)
+    return $! if m then Just (Match re 0) else Nothing
 
 -- | Lazily find all matches for the regular expression in the given
 -- text.