hsdev-0.3.1.4: src/Data/Maybe/JustIf.hs

module Data.Maybe.JustIf (
	justIf
	) where

-- | Return @Just@ if True
justIf :: a -> Bool -> Maybe a
x `justIf` True = Just x
_ `justIf` False = Nothing