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