From 7dedd8d5019419090fcd4cb99a50b0701cb8eb39 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 29 Aug 2018 12:52:17 +0200 Subject: [PATCH] Double quotes in migration --- src/Model/Migration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Model/Migration.hs b/src/Model/Migration.hs index b835b7960..7a448550c 100644 --- a/src/Model/Migration.hs +++ b/src/Model/Migration.hs @@ -157,7 +157,7 @@ customMigrations = Map.fromListWith (>>) tableExists :: MonadIO m => Text -> ReaderT SqlBackend m Bool tableExists table = do - haveSchoolTable <- [sqlQQ| SELECT to_regclass('#{table}'); |] + haveSchoolTable <- [sqlQQ| SELECT to_regclass("#{table}"); |] case haveSchoolTable :: [Maybe (Single Text)] of [Just _] -> return True _other -> return False