From 7fc6ad75094eebbd33a45ebf0622a7d83023e5a4 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 23 Feb 2021 14:53:06 -0500 Subject: Add repoVisibility --- Alpha.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Alpha.hs') diff --git a/Alpha.hs b/Alpha.hs index f1c5bdd..47e7b57 100644 --- a/Alpha.hs +++ b/Alpha.hs @@ -164,12 +164,12 @@ a +> b = a Prelude.>>= b infixl 1 +> -- | If-then-else. wutcol -(?:) :: Bool -> (Bool -> p, Bool -> p) -> p -a ?: (f, g) = if a then f a else g a +(?:) :: Bool -> (p, p) -> p +a ?: (b, c) = if a then b else c -- | Inverted if-then-else. wutdot -(?.) :: Bool -> (Bool -> p, Bool -> p) -> p -a ?. (g, f) = if a then f a else g a +(?.) :: Bool -> (p, p) -> p +a ?. (b, c) = if a then c else b -- | Positive assertion. wutgar (?>) :: Bool -> (Bool -> Text -> a) -> Text -> a -- cgit v1.2.3