Hide db details on connection failure
This commit is contained in:
+2
-1
@@ -173,7 +173,8 @@ isSqlError = Just
|
|||||||
sqlError :: H.Error -> Response
|
sqlError :: H.Error -> Response
|
||||||
sqlError err =
|
sqlError err =
|
||||||
let inside = case err of
|
let inside = case err of
|
||||||
H.CantConnect t -> t
|
H.CantConnect _ ->
|
||||||
|
"Message: \"Cannot connect to postgres server\""
|
||||||
H.ConnectionLost t -> t
|
H.ConnectionLost t -> t
|
||||||
H.ErroneousResult t -> t
|
H.ErroneousResult t -> t
|
||||||
H.UnexpectedResult t -> t
|
H.UnexpectedResult t -> t
|
||||||
|
|||||||
Reference in New Issue
Block a user