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

Experimental: fewer quotes

Browse Source
This commit is contained in:
Gregor Kleen 2018-09-06 15:20:57 +02:00
parent fadd7c4d88
commit 3bfae5d3c6
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