diff options
| -rw-r--r-- | Utility.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility.hs b/Utility.hs index 786c6a177..dab3b4d0e 100644 --- a/Utility.hs +++ b/Utility.hs @@ -288,6 +288,6 @@ unlessM c a = c >>= flip unless a (>>!) :: Monad m => m Bool -> m () -> m () (>>!) = unlessM --- low fixity allows eg, foo bar <|> error $ "failed " ++ meep +-- low fixity allows eg, foo bar >>! error $ "failed " ++ meep infixr 0 >>? infixr 0 >>! |