Added a new helper function.

Dridus · Aug 21, 2008 · eab30a6 · eab30a6
1 parent b3e658d
commit eab30a6
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Sound/PortAudio/Helpers.hs b/src/Sound/PortAudio/Helpers.hs
@@ -23,3 +23,9 @@ replicateWhileM mcond action = let f again = do c <- mcond
                                                 if c then liftM2 (:) action again
                                                      else return []
                                in fix f
+
+-- Pulled from Mat Morrow's lambdabot code parser
+untilM :: (a -> Bool) -> [a] -> Maybe a
+untilM _ [] = Nothing
+untilM p (x:xs) = if p x
+    then Just x else untilM p xs