From 30e973371941b6a9a364357e491fefc424bbecef Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Mon, 22 Dec 2014 15:40:35 -0800
Subject: [PATCH] Hide db details on connection failure

---
 src/App.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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