src/Util.bs


1
2
3
4
5
6
7

package Util where

when_ :: (Monad m) => Bool -> m () -> m ()
when_ True  x = x
when_ False _ = return ()

-- vim: set ft=haskell :