Commits

Luke Plant committed e67a942

Small tidyup

Comments (0)

Files changed (1)

                         mapM_ (\c -> DB.doInsert cn "categories" ["id", "name"] [toSql $ C.id c, toSql $ C.name c]) cs
                         commit cn
 
-main = do cats <- readCategories
-          writeCategories cats
+main = readCategories >>= writeCategories