git.iko.soy/rel8
on master help sign in
Right is not left
6531b02Shane O'Brien
src/Rel8/Type/Tag.hs+1−1
compare with master
unifiedsplit
@@ -59,7 +59,7 @@ isLeft = (litExpr IsLeft ==.)
59
59
60
60
61isRight :: Expr EitherTag -> Expr Bool
61isRight :: Expr EitherTag -> Expr Bool
62−isRight = (litExpr IsLeft ==.)
62+isRight = (litExpr IsRight ==.)
63
63
64
64
65type MaybeTag :: Type
65type MaybeTag :: Type