@@ -27,7 +27,7 @@ main = do
27 "host=localhost port=5432 dbname=exampledb"
27 "host=localhost port=5432 dbname=exampledb"
28 Char8.putStrLn $ "connecting to " <> connectionString
28 Char8.putStrLn $ "connecting to " <> connectionString
29 connection0 <- connectdb connectionString
29 connection0 <- connectdb connectionString
30− Char8.putStrLn "creating database"
30+ Char8.putStrLn "setting up database"
31 connection1 <- flip execPQ connection0 $
31 connection1 <- flip execPQ connection0 $
32 pqExec ( createTable #students
32 pqExec ( createTable #students
33 ( (text & notNull) `As` #name
33 ( (text & notNull) `As` #name