From 3bfae5d3c6cc228dd6551baad1da7f489f18efd9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 6 Sep 2018 15:20:57 +0200 Subject: [PATCH] Experimental: fewer quotes --- 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 6e01416ba..a47a435d2 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