Skip to content

Instantly share code, notes, and snippets.

@techtangents

techtangents/liftedOr2.hs

Created February 14, 2014 20:42
Show Gist options
  • Save techtangents/9008839 to your computer and use it in GitHub Desktop.
Save techtangents/9008839 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
liftedOr2.hs
import Data.Semigroup
import Data.List.NonEmpty
isA :: a -> Bool
isA = undefined
isB :: a -> Bool
isB = undefined
isC :: a -> Bool
isC = undefined
instance Semigroup Bool where
(<>) = (||)
f :: a -> Bool
f = sconcat $ isA :| [isB, isC]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment