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