Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix bug

  • Loading branch information...
commit 04795cd117f8c29fd42b999f90515297a9b13b97 1 parent 70318a6
@mightybyte authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.