haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Punctuation.

Browse Source
This commit is contained in:
Felipe Lessa 2014-11-03 12:27:25 -02:00
parent 9ae1273360
commit 88553f657d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Database/Esqueleto/Internal/Language.hs
View File

@ -391,15 +391,15 @@ infix 4 ==., >=., >., <=., <., !=.
infixr 3 &&., =., +=., -=., *=., /=. infixr 3 &&., =., +=., -=., *=., /=.
infixr 2 ||., `InnerJoin`, `CrossJoin`, `LeftOuterJoin`, `RightOuterJoin`, `FullOuterJoin`, `like` 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_ :: expr (Value Bool) -> () -> expr a -> (expr (Value Bool), expr a)
when_ cond _ expr = (cond, expr) when_ cond _ expr = (cond, expr)
-- | Syntax Sugar for 'case_' -- | Syntax sugar for 'case_'.
then_ :: () then_ :: ()
then_ = () then_ = ()
-- | Syntax Sugar for 'case_' -- | Syntax sugar for 'case_'.
else_ :: expr a -> expr a else_ :: expr a -> expr a
else_ = id else_ = id