From dc21a81d36aaf379c6066ec951e67da2f8324bd4 Mon Sep 17 00:00:00 2001 From: Nikita Volkov Date: Sat, 25 Oct 2014 23:46:39 +0400 Subject: [PATCH] Accomodate the RC7 API of the backend --- library/Hasql.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/Hasql.hs b/library/Hasql.hs index 6b8e157..72ed148 100644 --- a/library/Hasql.hs +++ b/library/Hasql.hs @@ -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,