Add haddock

src/Database/Esqueleto/Internal/Language.hs

@@ -352,7 +352,10 @@ class (Functor query, Applicative query, Monad query) =>
   (/.)  :: PersistField a => expr (Value a) -> expr (Value a) -> expr (Value a)
   (*.)  :: PersistField a => expr (Value a) -> expr (Value a) -> expr (Value a)
 
-  between :: PersistField typ => expr (Value typ) -> expr (Value typ) -> expr (Value typ) -> expr (Value Bool)
+  -- | @BETWEEN@ operator
+  --
+  -- /Since: 2.6.0/
+  between :: PersistField typ => expr (Value typ) -> (expr (Value typ), expr (Value typ)) -> expr (Value Bool)
 
 
   random_  :: (PersistField a, Num a) => expr (Value a)

src/Database/Esqueleto/Internal/Sql.hs

@@ -97,6 +97,7 @@ instance Exception EsqueletoError
 
 data CompositeKeyError =
     NotError
+  | BetweenError
   | ToInsertionError
   | CombineInsertionError
   | FoldHelpError
@@ -533,11 +534,11 @@ instance Esqueleto SqlQuery SqlExpr SqlBackend where
   (/.)  = unsafeSqlBinOp " / "
   (*.)  = unsafeSqlBinOp " * "
 
-  between a@(ERaw _ _) (ERaw _ f) (ERaw _ g) = unsafeSqlBinOp " BETWEEN " a $ ERaw Never $ \x ->
+  a `between` (ERaw _ f, ERaw _ g) = unsafeSqlBinOp " BETWEEN " a $ ERaw Never $ \x ->
     let (_, fv) = f x
         (_, gv) = g x
     in  (" ? AND ? ", fv ++ gv)
-  between _ _ _                              = throw (CompositeKeyErr NotError)
+  _ `between` _                    = throw $ CompositeKeyErr BetweenError
 
   random_  = unsafeSqlValue "RANDOM()"
   round_   = unsafeSqlFunction "ROUND"

test/Common/Test.hs

@@ -637,7 +637,7 @@ testSelectWhere run = do
         _    <- insert' p3
         ret  <- select $
           from $ \p -> do
-            where_ (between (p ^. PersonAge) (just $ val 20) (just $ val 40))
+            where_ ((p ^. PersonAge) `between` (just $ val 20, just $ val 40))
             return p
         liftIO $ ret `shouldBe` [ p1e ]
     it "works with avg_" $