diff --git a/src/App.hs b/src/App.hs
index fa0a71700..32ac72bd6 100644
--- a/src/App.hs
+++ b/src/App.hs
@@ -173,7 +173,8 @@ isSqlError = Just
 sqlError :: H.Error -> Response
 sqlError err =
   let inside = case err of
-        H.CantConnect t -> t
+        H.CantConnect _ ->
+          "Message: \"Cannot connect to postgres server\""
         H.ConnectionLost t -> t
         H.ErroneousResult t -> t
         H.UnexpectedResult t -> t