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

Double quotes in migration

Browse Source
This commit is contained in:
Gregor Kleen 2018-08-29 12:52:17 +02:00
parent b0cabdac15
commit 7dedd8d501
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Model/Migration.hs
View File

@ -157,7 +157,7 @@ customMigrations = Map.fromListWith (>>)
tableExists :: MonadIO m => Text -> ReaderT SqlBackend m Bool tableExists :: MonadIO m => Text -> ReaderT SqlBackend m Bool
tableExists table = do tableExists table = do
haveSchoolTable <- [sqlQQ| SELECT to_regclass('#{table}'); |] haveSchoolTable <- [sqlQQ| SELECT to_regclass("#{table}"); |]
case haveSchoolTable :: [Maybe (Single Text)] of case haveSchoolTable :: [Maybe (Single Text)] of
[Just _] -> return True [Just _] -> return True
_other -> return False _other -> return False