PRELUDE: add if' function to simplify if-then-else

2014-10-13 22:30:57 +02:00
parent 077d0442f5
commit 9dcf1e30f9
1 changed files with 6 additions and 0 deletions
--- a/MyPrelude.hs
+++ b/MyPrelude.hs
@@ -72,3 +72,9 @@ seqList = tail. inits
 dupLast :: [a] -> [a]
 dupLast [] = []
 dupLast xs = xs ++ [last xs]
+
+
+-- |Simpler version of if-then-else.
+if' :: Bool -> a -> a -> a
+if' True  x _ = x
+if' False _ y = y