Commits

Luke Plant committed c67b906

Set up default user in migrate script

  • Participants
  • Parent commits f504e04

Comments (0)

Files changed (1)

File src/Migrate.hs

   let categoryUrlMap = Map.fromList $ zip (map (show . C.uid) origCats)
                                           (map Links.categoryUrl newCats)
   createRedirectFile postUrlMap categoryUrlMap
+
+  createUser cn "luke" True
+  setPassword cn "luke" "test"
+
   commit cn
   return ()