From 04795cd117f8c29fd42b999f90515297a9b13b97 Mon Sep 17 00:00:00 2001 From: Mighty Byte Date: Tue, 2 Oct 2012 18:48:59 -0400 Subject: [PATCH] Fix bug --- src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs b/src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs index 3cfea55..2ca610b 100644 --- a/src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs +++ b/src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs @@ -262,7 +262,7 @@ saveQuery at u@AuthUser{..} = maybe insertQuery updateQuery userId , ") VALUES (" , T.intercalate "," vals , ") RETURNING " - , T.intercalate "," (map (fst . ($at) . fst) $ tail colDef) + , T.intercalate "," (map (fst . ($at) . fst) colDef) ] , params) qval f = fst (f at) `T.append` " = ?" @@ -274,7 +274,7 @@ saveQuery at u@AuthUser{..} = maybe insertQuery updateQuery userId , " WHERE " , fst (colId at) , " = ? RETURNING " - , T.intercalate "," (map (fst . ($at) . fst) $ tail colDef) + , T.intercalate "," (map (fst . ($at) . fst) colDef) ] , params ++ [P.toField $ unUid uid]) cols = map (fst . ($at) . fst) $ tail colDef