nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2025-01-01 15:04:17 +03:00
Code Issues Projects Releases Wiki Activity

Optimize the row parser a bit

Browse Source
This commit is contained in:
Nikita Volkov 2014-10-25 19:39:23 +04:00
parent aed09f367d
commit 47d86b91f2
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
library/Hasql/RowParser.hs
View File

@ -13,12 +13,11 @@ instance RowParser b () where
parseRow row =
if Vector.null row
then Right ()
else Left $ "Row is not empty"
else $bug "Not an empty row"
instance Backend.Mapping b v => RowParser b (Identity v) where
parseRow row = do
h <- maybe (Left $ "Empty row") Right $ Vector.headM row
Identity <$> Backend.parseResult h
Identity <$> Backend.parseResult (Vector.unsafeHead row)
-- Generate tuple instaces using Template Haskell:
let
@ -47,9 +46,8 @@ let
i <- [0 .. pred arity]
return $ purify $
[|
fromMaybe (Left "Invalid row length") $
fmap Backend.parseResult $
(Vector.!?) $(varE n) $(litE (IntegerL $ fromIntegral i))
Backend.parseResult $
(Vector.unsafeIndex) $(varE n) $(litE (IntegerL $ fromIntegral i))
|]
queue =
(ConE (tupleDataName arity) :) $