Accomodate the RC7 API of the backend

This commit is contained in:
Nikita Volkov 2014-10-25 23:46:39 +04:00
parent 89b92bdfa0
commit dc21a81d36

View File

@ -259,7 +259,7 @@ list s =
{-# SCC "list" #-}
Tx $ ReaderT $ \c -> do
m <- Backend.executeAndGetMatrix s c
traverse (either (throwIO . UnparsableRow) return . RowParser.parseRow) m
traverse (either (throwIO . UnparsableRow) return . RowParser.parseRow) $ Vector.toList m
-- |
-- Execute a @SELECT@ statement with a cursor,