Fix bug

mightybyte · Oct 2, 2012 · 04795cd · 04795cd
1 parent 70318a6
commit 04795cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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