From 88553f657d184d1ca22cf2819c2e707fb12f2855 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Mon, 3 Nov 2014 12:27:25 -0200 Subject: [PATCH] Punctuation. --- src/Database/Esqueleto/Internal/Language.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs index 57e2df0..5817b39 100644 --- a/src/Database/Esqueleto/Internal/Language.hs +++ b/src/Database/Esqueleto/Internal/Language.hs @@ -391,15 +391,15 @@ infix 4 ==., >=., >., <=., <., !=. infixr 3 &&., =., +=., -=., *=., /=. infixr 2 ||., `InnerJoin`, `CrossJoin`, `LeftOuterJoin`, `RightOuterJoin`, `FullOuterJoin`, `like` --- | Syntax Sugar for 'case_' +-- | Syntax sugar for 'case_'. when_ :: expr (Value Bool) -> () -> expr a -> (expr (Value Bool), expr a) when_ cond _ expr = (cond, expr) --- | Syntax Sugar for 'case_' +-- | Syntax sugar for 'case_'. then_ :: () then_ = () --- | Syntax Sugar for 'case_' +-- | Syntax sugar for 'case_'. else_ :: expr a -> expr a else_ = id