Skip to content

Instantly share code, notes, and snippets.

@techtangents

techtangents/liftedor.hs

Created February 14, 2014 19:58
Show Gist options
  • Save techtangents/9008076 to your computer and use it in GitHub Desktop.
Save techtangents/9008076 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
liftedor.hs
import Control.Applicative
isA :: a -> Bool
isA = undefined
isB :: a -> Bool
isB = undefined
isC :: a -> Bool
isC = undefined
infixl 4 <||>
(<||>) :: (a -> Bool) -> (a -> Bool) -> a -> Bool
(<||>) = liftA2 (||)
f :: a -> Bool
f = isA <||> isB <||> isC
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment