Commit e1812eed7ec3111c3f00ca332401544196bdc8ee - electric-boogaloo

Added IF NOT EXISTS to table decls Getty Ritter 8 years ago

1 changed file(s) with 1 addition(s) and 1 deletion(s). Collapse all Expand all

-1

src/Main.hs less more

71	71
72	72	pprint :: Decl -> IO ()
73	73	pprint Decl { dName = n, dFields = fs } = do
74		T.putStr "CREATE TABLE "
	74	T.putStr "CREATE TABLE IF NOT EXISTS "
75	75	T.putStrLn n
76	76	T.putStrLn " ( id INTEGER PRIMARY KEY ASC"
77	77	mapM_ printField fs