fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Experimental: try more quoting

Browse Source
This commit is contained in:
Gregor Kleen 2018-09-06 14:57:42 +02:00
parent e971432cd7
commit e32ad38fb9
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Model/Migration.hs
View File

@ -109,41 +109,41 @@ customMigrations = Map.fromListWith (>>)
-- Convert columns containing SchoolId -- Convert columns containing SchoolId
whenM (tableExists "user_admin") $ do whenM (tableExists "user_admin") $ do
[executeQQ| [executeQQ|
ALTER TABLE "user_admin" DROP CONSTRAINT user_admin_school_fkey; ALTER TABLE "user_admin" DROP CONSTRAINT "user_admin_school_fkey";
ALTER TABLE "user_admin" ALTER COLUMN school TYPE citext USING school::citext; ALTER TABLE "user_admin" ALTER COLUMN "school" TYPE citext USING "school"::citext;
|] |]
forM_ schoolTable $ \(Single idnr, Single ssh) -> forM_ schoolTable $ \(Single idnr, Single ssh) ->
[executeQQ| [executeQQ|
UPDATE "user_admin" SET school = #{ssh} WHERE school = #{tshow idnr}; UPDATE "user_admin" SET "school" = #{ssh} WHERE "school" = #{tshow idnr};
|] |]
[executeQQ| [executeQQ|
ALTER TABLE "user_admin" ADD CONSTRAINT "user_admin_school_fkey" ALTER TABLE "user_admin" ADD CONSTRAINT "user_admin_school_fkey"
FOREIGN KEY (school) REFERENCES school(shorthand); FOREIGN KEY (school) REFERENCES school(shorthand);
|] |]
whenM (tableExists "user_lecturer") $ do whenM (tableExists "user_lecturer") $ do
[executeQQ| [executeQQ|
ALTER TABLE "user_lecturer" DROP CONSTRAINT user_lecturer_school_fkey; ALTER TABLE "user_lecturer" DROP CONSTRAINT "user_lecturer_school_fkey";
ALTER TABLE "user_lecturer" ALTER COLUMN school TYPE citext USING school::citext; ALTER TABLE "user_lecturer" ALTER COLUMN "school" TYPE citext USING "school"::citext;
|] |]
forM_ schoolTable $ \(Single idnr, Single ssh) -> forM_ schoolTable $ \(Single idnr, Single ssh) ->
[executeQQ| [executeQQ|
UPDATE "user_lecturer" SET school = #{ssh} WHERE school = #{tshow idnr}; UPDATE "user_lecturer" SET "school" = #{ssh} WHERE "school" = #{tshow idnr};
|] |]
[executeQQ| [executeQQ|
ALTER TABLE "user_lecturer" ADD CONSTRAINT "user_lecturer_school_fkey" ALTER TABLE "user_lecturer" ADD CONSTRAINT "user_lecturer_school_fkey"
FOREIGN KEY (school) REFERENCES school(shorthand);; FOREIGN KEY (school) REFERENCES school(shorthand);
|] |]
whenM (tableExists "course") $ do whenM (tableExists "course") $ do
[executeQQ| [executeQQ|
ALTER TABLE "course" DROP CONSTRAINT course_school_fkey; ALTER TABLE "course" DROP CONSTRAINT "course_school_fkey";
ALTER TABLE "course" ALTER COLUMN school TYPE citext USING school::citext; ALTER TABLE "course" ALTER COLUMN "school" TYPE citext USING "school"::citext;
|] |]
forM_ schoolTable $ \(Single idnr, Single ssh) -> forM_ schoolTable $ \(Single idnr, Single ssh) ->
[executeQQ| [executeQQ|
UPDATE "course" SET school = #{ssh} WHERE school = #{tshow idnr}; UPDATE "course" SET "school" = #{ssh} WHERE "school" = #{tshow idnr};
|] |]
[executeQQ| [executeQQ|
ALTER TABLE "course" ADD CONSTRAINT "course_school_fkey" ALTER TABLE "course" ADD CONSTRAINT "course_school_fkey"
FOREIGN KEY (school) REFERENCES school(shorthand); FOREIGN KEY (school) REFERENCES school(shorthand);
|] |]
[executeQQ| [executeQQ|