Show database outdated error screen if column is missing exception is…

… thrown
digitallyinduced · Sep 27, 2021 · dcce5b5 · dcce5b5
1 parent 0a2cbdb
commit dcce5b5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/IHP/ErrorController.hs b/IHP/ErrorController.hs
@@ -173,6 +173,10 @@ postgresHandler exception controller additionalInfo = do
                 |  "relation" `ByteString.isPrefixOf` (get #sqlErrorMsg exception)
                 && "does not exist" `ByteString.isSuffixOf` (get #sqlErrorMsg exception)
                 -> Just (handlePostgresError exception "A table is missing.")
+            Just (exception :: PG.SqlError)
+                |  "column" `ByteString.isPrefixOf` (get #sqlErrorMsg exception)
+                && "does not exist" `ByteString.isSuffixOf` (get #sqlErrorMsg exception)
+                -> Just (handlePostgresError exception "A column is missing.")
             _ -> Nothing
 
 patternMatchFailureHandler :: (Show controller, ?context :: ControllerContext) => SomeException -> controller -> Text -> Maybe (IO ResponseReceived)