Permalink
Browse files

Fix bug

  • Loading branch information...
1 parent 70318a6 commit 04795cd117f8c29fd42b999f90515297a9b13b97 @mightybyte committed Oct 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs
View
4 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

0 comments on commit 04795cd

Please sign in to comment.