diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-03 09:10:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-03 09:10:23 -0400 |
| commit | 64672c6262048e9498be667f8dc7460c0a9189e2 (patch) | |
| tree | 194453dc8731dff8207bbc76bc752ad472c1f795 /Utility/Conditional.hs | |
| parent | b5930f6d076d266b337b415447f448fbb14d9ea3 (diff) | |
refactor
Diffstat (limited to 'Utility/Conditional.hs')
| -rw-r--r-- | Utility/Conditional.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Utility/Conditional.hs b/Utility/Conditional.hs index 7a0df4b48..85e39ec64 100644 --- a/Utility/Conditional.hs +++ b/Utility/Conditional.hs @@ -9,12 +9,6 @@ module Utility.Conditional where import Control.Monad (when, unless) -untilTrue :: Monad m => [v] -> (v -> m Bool) -> m Bool -untilTrue [] _ = return False -untilTrue (v:vs) a = do - ok <- a v - if ok then return ok else untilTrue vs a - whenM :: Monad m => m Bool -> m () -> m () whenM c a = c >>= flip when a |