{-# OPTIONS_HADDOCK hide #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE CPP #-}
module Database.MSSQLServer.Query.ResultSet ( ResultSet (..)
, Result (..)
) where
import Control.Applicative(Alternative((<|>)),many,(<$>))
import Database.Tds.Message
import Database.MSSQLServer.Query.Row
import Database.MSSQLServer.Query.Only
import Database.MSSQLServer.Query.TokenStreamParser
import Database.MSSQLServer.Query.Template
import Control.Monad(forM)
import Language.Haskell.TH (runIO,pprint)
#if MIN_VERSION_mtl(2,2,1)
import Control.Monad.Except
#else
import Control.Monad.Error
#endif
errorDone :: Parser TokenStream
errorDone :: Parser TokenStream
errorDone = do
[TokenStream]
_ <- Parser TokenStream -> Parser [TokenStream]
forall (f :: * -> *) a. Alternative f => f a -> f [a]
many (Parser TokenStream -> Parser [TokenStream])
-> Parser TokenStream -> Parser [TokenStream]
forall a b. (a -> b) -> a -> b
$ (TokenStream -> Bool) -> Parser TokenStream
satisfy ((TokenStream -> Bool) -> Parser TokenStream)
-> (TokenStream -> Bool) -> Parser TokenStream
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSError
TokenStream
ts <- (TokenStream -> Bool) -> Parser TokenStream
satisfy TokenStream -> Bool
isTSError
[TokenStream]
_ <- Parser TokenStream -> Parser [TokenStream]
forall (f :: * -> *) a. Alternative f => f a -> f [a]
many (Parser TokenStream -> Parser [TokenStream])
-> Parser TokenStream -> Parser [TokenStream]
forall a b. (a -> b) -> a -> b
$ (TokenStream -> Bool) -> Parser TokenStream
satisfy ((TokenStream -> Bool) -> Parser TokenStream)
-> (TokenStream -> Bool) -> Parser TokenStream
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDoneOrDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser TokenStream
satisfy TokenStream -> Bool
isFinalTSDoneOrDoneProc
TokenStream -> Parser TokenStream
forall (m :: * -> *) a. Monad m => a -> m a
return TokenStream
ts
where
isTSError :: TokenStream -> Bool
isTSError :: TokenStream -> Bool
isTSError (TSError{}) = Bool
True
isTSError TokenStream
_ = Bool
False
trySatisfy :: (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy :: (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
f = do
TokenStream
ts <- Parser TokenStream -> Parser' TokenStream
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (Parser TokenStream -> Parser' TokenStream)
-> Parser TokenStream -> Parser' TokenStream
forall a b. (a -> b) -> a -> b
$ ((TokenStream -> Bool) -> Parser TokenStream
satisfyNotError TokenStream -> Bool
f) Parser TokenStream -> Parser TokenStream -> Parser TokenStream
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> Parser TokenStream
errorDone
case TokenStream
ts of
TSError Info
ei -> Info -> Parser' TokenStream
forall e (m :: * -> *) a. MonadError e m => e -> m a
throwError Info
ei
TokenStream
_ -> TokenStream -> Parser' TokenStream
forall (m :: * -> *) a. Monad m => a -> m a
return TokenStream
ts
trySatisfyMany :: (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany :: (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany TokenStream -> Bool
f = do
[TokenStream]
tss <- Parser [TokenStream] -> Parser' [TokenStream]
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (Parser [TokenStream] -> Parser' [TokenStream])
-> Parser [TokenStream] -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ (Parser TokenStream -> Parser [TokenStream]
forall (f :: * -> *) a. Alternative f => f a -> f [a]
many (Parser TokenStream -> Parser [TokenStream])
-> Parser TokenStream -> Parser [TokenStream]
forall a b. (a -> b) -> a -> b
$ (TokenStream -> Bool) -> Parser TokenStream
satisfyNotError TokenStream -> Bool
f) Parser [TokenStream]
-> Parser [TokenStream] -> Parser [TokenStream]
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> ((\TokenStream
x->[TokenStream
x]) (TokenStream -> [TokenStream])
-> Parser TokenStream -> Parser [TokenStream]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Parser TokenStream
errorDone)
case [TokenStream]
tss of
(TSError Info
ei):[TokenStream]
_ -> Info -> Parser' [TokenStream]
forall e (m :: * -> *) a. MonadError e m => e -> m a
throwError Info
ei
[TokenStream]
_ -> [TokenStream] -> Parser' [TokenStream]
forall (m :: * -> *) a. Monad m => a -> m a
return [TokenStream]
tss
noResultDone :: Parser' ()
noResultDone :: Parser' ()
noResultDone = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDoneOrDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isTSDoneOrDoneProc
() -> Parser' ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
noResultFinalDone :: Parser' ()
noResultFinalDone :: Parser' ()
noResultFinalDone = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isFinalTSDoneOrDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDoneOrDoneProc
() -> Parser' ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
noResultFinalDone' :: Parser' ()
noResultFinalDone' :: Parser' ()
noResultFinalDone' = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDoneOrDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDoneOrDoneProc
() -> Parser' ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
returnStatus :: Parser' ReturnStatus
returnStatus :: Parser' ReturnStatus
returnStatus = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSReturnStatus
TSReturnStatus Int32
rets <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isTSReturnStatus
ReturnStatus -> Parser' ReturnStatus
forall (m :: * -> *) a. Monad m => a -> m a
return (ReturnStatus -> Parser' ReturnStatus)
-> ReturnStatus -> Parser' ReturnStatus
forall a b. (a -> b) -> a -> b
$ Int -> ReturnStatus
ReturnStatus (Int -> ReturnStatus) -> Int -> ReturnStatus
forall a b. (a -> b) -> a -> b
$ Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int32
rets
where
isTSReturnStatus :: TokenStream -> Bool
isTSReturnStatus :: TokenStream -> Bool
isTSReturnStatus (TSReturnStatus{}) = Bool
True
isTSReturnStatus TokenStream
_ = Bool
False
returnStatusDone :: Parser' ReturnStatus
returnStatusDone :: Parser' ReturnStatus
returnStatusDone = do
ReturnStatus
rets <- Parser' ReturnStatus
returnStatus
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isTSDoneProc
ReturnStatus -> Parser' ReturnStatus
forall (m :: * -> *) a. Monad m => a -> m a
return ReturnStatus
rets
returnStatusFinalDone :: Parser' ReturnStatus
returnStatusFinalDone :: Parser' ReturnStatus
returnStatusFinalDone = do
ReturnStatus
rets <- Parser' ReturnStatus
returnStatus
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isFinalTSDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDoneProc
ReturnStatus -> Parser' ReturnStatus
forall (m :: * -> *) a. Monad m => a -> m a
return ReturnStatus
rets
returnStatusFinalDone' :: Parser' ReturnStatus
returnStatusFinalDone' :: Parser' ReturnStatus
returnStatusFinalDone' = do
ReturnStatus
rets <- Parser' ReturnStatus
returnStatus
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDoneProc
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDoneProc
ReturnStatus -> Parser' ReturnStatus
forall (m :: * -> *) a. Monad m => a -> m a
return ReturnStatus
rets
rowCountDone :: Parser' RowCount
rowCountDone :: Parser' RowCount
rowCountDone = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDone
TSDone (Done DoneStatus
_ DoneStatus
_ Int32
rc) <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isTSDone
RowCount -> Parser' RowCount
forall (m :: * -> *) a. Monad m => a -> m a
return (RowCount -> Parser' RowCount) -> RowCount -> Parser' RowCount
forall a b. (a -> b) -> a -> b
$ Int -> RowCount
RowCount (Int -> RowCount) -> Int -> RowCount
forall a b. (a -> b) -> a -> b
$ Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int32
rc
rowCountFinalDone :: Parser' RowCount
rowCountFinalDone :: Parser' RowCount
rowCountFinalDone = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isFinalTSDone
TSDone (Done DoneStatus
_ DoneStatus
_ Int32
rc) <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDone
RowCount -> Parser' RowCount
forall (m :: * -> *) a. Monad m => a -> m a
return (RowCount -> Parser' RowCount) -> RowCount -> Parser' RowCount
forall a b. (a -> b) -> a -> b
$ Int -> RowCount
RowCount (Int -> RowCount) -> Int -> RowCount
forall a b. (a -> b) -> a -> b
$ Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int32
rc
rowCountFinalDone' :: Parser' RowCount
rowCountFinalDone' :: Parser' RowCount
rowCountFinalDone' = do
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDone
TSDone (Done DoneStatus
_ DoneStatus
_ Int32
rc) <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isFinalTSDone
RowCount -> Parser' RowCount
forall (m :: * -> *) a. Monad m => a -> m a
return (RowCount -> Parser' RowCount) -> RowCount -> Parser' RowCount
forall a b. (a -> b) -> a -> b
$ Int -> RowCount
RowCount (Int -> RowCount) -> Int -> RowCount
forall a b. (a -> b) -> a -> b
$ Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int32
rc
listOfRow :: Row a => Parser' ([a])
listOfRow :: Parser' [a]
listOfRow = do
TokenStream
tsCmd <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy TokenStream -> Bool
isTSColMetaData
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSRow
[TokenStream]
tsRows <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany TokenStream -> Bool
isTSRow
[a] -> Parser' [a]
forall (m :: * -> *) a. Monad m => a -> m a
return ([a] -> Parser' [a]) -> [a] -> Parser' [a]
forall a b. (a -> b) -> a -> b
$
let
(TSColMetaData (Maybe ColMetaData
maybeCmd)) = TokenStream
tsCmd
mcds :: [MetaColumnData]
mcds = case (\(ColMetaData [MetaColumnData]
x) -> [MetaColumnData]
x) (ColMetaData -> [MetaColumnData])
-> Maybe ColMetaData -> Maybe [MetaColumnData]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Maybe ColMetaData
maybeCmd of
Maybe [MetaColumnData]
Nothing -> [Char] -> [MetaColumnData]
forall a. HasCallStack => [Char] -> a
error [Char]
"listOfRow: ColMetaData is necessary"
Just [MetaColumnData]
mcds' -> [MetaColumnData]
mcds'
rows :: [[RawBytes]]
rows = (\(TSRow [RowColumnData]
row) -> RowColumnData -> RawBytes
getRawBytes (RowColumnData -> RawBytes) -> [RowColumnData] -> [RawBytes]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [RowColumnData]
row) (TokenStream -> [RawBytes]) -> [TokenStream] -> [[RawBytes]]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TokenStream]
tsRows
in [MetaColumnData] -> [RawBytes] -> a
forall a. Row a => [MetaColumnData] -> [RawBytes] -> a
fromListOfRawBytes [MetaColumnData]
mcds ([RawBytes] -> a) -> [[RawBytes]] -> [a]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [[RawBytes]]
rows
where
isTSColMetaData :: TokenStream -> Bool
isTSColMetaData :: TokenStream -> Bool
isTSColMetaData (TSColMetaData{}) = Bool
True
isTSColMetaData TokenStream
_ = Bool
False
isTSRow :: TokenStream -> Bool
isTSRow :: TokenStream -> Bool
isTSRow (TSRow{}) = Bool
True
isTSRow TokenStream
_ = Bool
False
getRawBytes :: RowColumnData -> RawBytes
getRawBytes :: RowColumnData -> RawBytes
getRawBytes (RCDOrdinal RawBytes
dt) = RawBytes
dt
getRawBytes (RCDLarge Maybe TextPointer
_ Maybe TimeStamp
_ RawBytes
dt) = RawBytes
dt
listOfRowDone :: Row a => Parser' ([a])
listOfRowDone :: Parser' [a]
listOfRowDone = do
[a]
rs <- Parser' [a]
forall a. Row a => Parser' [a]
listOfRow
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDone
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy ((TokenStream -> Bool) -> Parser' TokenStream)
-> (TokenStream -> Bool) -> Parser' TokenStream
forall a b. (a -> b) -> a -> b
$ TokenStream -> Bool
isTSDone
[a] -> Parser' [a]
forall (m :: * -> *) a. Monad m => a -> m a
return [a]
rs
listOfRowFinalDone :: Row a => Parser' ([a])
listOfRowFinalDone :: Parser' [a]
listOfRowFinalDone = do
[a]
rs <- Parser' [a]
forall a. Row a => Parser' [a]
listOfRow
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isFinalTSDone
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy ((TokenStream -> Bool) -> Parser' TokenStream)
-> (TokenStream -> Bool) -> Parser' TokenStream
forall a b. (a -> b) -> a -> b
$ TokenStream -> Bool
isFinalTSDone
[a] -> Parser' [a]
forall (m :: * -> *) a. Monad m => a -> m a
return [a]
rs
listOfRowFinalDone' :: Row a => Parser' ([a])
listOfRowFinalDone' :: Parser' [a]
listOfRowFinalDone' = do
[a]
rs <- Parser' [a]
forall a. Row a => Parser' [a]
listOfRow
[TokenStream]
_ <- (TokenStream -> Bool) -> Parser' [TokenStream]
trySatisfyMany ((TokenStream -> Bool) -> Parser' [TokenStream])
-> (TokenStream -> Bool) -> Parser' [TokenStream]
forall a b. (a -> b) -> a -> b
$ Bool -> Bool
not (Bool -> Bool) -> (TokenStream -> Bool) -> TokenStream -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TokenStream -> Bool
isTSDone
TokenStream
_ <- (TokenStream -> Bool) -> Parser' TokenStream
trySatisfy ((TokenStream -> Bool) -> Parser' TokenStream)
-> (TokenStream -> Bool) -> Parser' TokenStream
forall a b. (a -> b) -> a -> b
$ TokenStream -> Bool
isFinalTSDone
[a] -> Parser' [a]
forall (m :: * -> *) a. Monad m => a -> m a
return [a]
rs
class ResultSet a where
resultSetParser :: Parser' a
instance ResultSet () where
resultSetParser :: Parser' ()
resultSetParser = Parser' ()
noResultFinalDone
instance ResultSet RowCount where
resultSetParser :: Parser' RowCount
resultSetParser = Parser' RowCount
rowCountFinalDone
instance ResultSet ReturnStatus where
resultSetParser :: Parser' ReturnStatus
resultSetParser = Parser' ReturnStatus
returnStatusFinalDone
instance (Row a) => ResultSet [a] where
resultSetParser :: Parser' [a]
resultSetParser = Parser' [a]
forall a. Row a => Parser' [a]
listOfRowFinalDone