yeshql-hdbc 4.1.0.1 → 4.1.0.2

raw patch · 3 files changed

+20/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Database/YeshQL/HDBC.hs +3/−0
• tests/Database/YeshQL/HDBC/SimulationTests.hs +16/−0
• yeshql-hdbc.cabal +1/−1

@@ -36,6 +36,7 @@ import qualified Text.Parsec as P import Data.Char (chr, ord, toUpper, toLower) import Control.Applicative ( (<$>), (<*>) )+import Control.Monad (void) import System.FilePath (takeBaseName) import Data.Char (isAlpha, isAlphaNum) @@ -126,6 +127,8 @@                             [| \qstr params conn -> $convert <$> run conn qstr params |]                         ReturnTuple Many _ ->                             [| \qstr params conn -> $convert <$> quickQuery' conn qstr params |]+                        ReturnTuple One [] ->+                            [| \qstr params conn -> void $ $convert <$> quickQuery' conn qstr params |]                         ReturnTuple One _ ->                             [| \qstr params conn -> fmap headMay $ $convert <$> quickQuery' conn qstr params |]                         ReturnRecord Many _ ->

@@ -81,6 +81,22 @@                 }             ] +testEmptyReturn :: TestTree+testEmptyReturn = testCase "Simple SELECT (empty return)" $ chatTest chatScript $ \conn -> do+    [yesh|+        -- name:getUserByName :: ()+        SELECT username FROM users WHERE 0|] conn+    where+        chatScript =+            [ ChatStep+                { chatQuery = sameThrough trim "SELECT username FROM users WHERE 0"+                , chatParams = []+                , chatResultSet = []+                , chatColumnNames = ["username"]+                , chatRowsAffected = 0+                }+            ]+ testSimpleSelectStr :: TestTree testSimpleSelectStr = testCase "Simple SELECT (expr by string)" $ chatTest chatScript $ \conn -> do     results <- $(yesh $ unlines

@@ -1,5 +1,5 @@ name: yeshql-hdbc-version: 4.1.0.1+version: 4.1.0.2 synopsis: YesQL-style SQL database abstraction (HDBC backend) description: Use quasi-quotations or TemplateHaskell to write SQL in SQL, while              adding type annotations to turn SQL into well-typed Haskell