Commits

Luke Plant committed 6624080

Fix missing from last commit

  • Participants
  • Parent commits 7cbd001

Comments (0)

Files changed (1)

File src/Blog/Model.hs

 
 getSpamWords :: (IConnection conn) => conn -> IO [String]
 getSpamWords cn = do
-  cn <- DB.connect
   res <- quickQuery' cn getSpamWordsQuery []
   return [fromSql $ row !! 0 | row <- res]