Fix frozen tests

Problem found by @ruslantalpa
2016-02-22 08:41:31 -08:00
parent 072a6ce4c7
commit 7b7babd1d1
1 changed files with 1 additions and 1 deletions
@@ -30,7 +30,7 @@ instance JSON.ToJSON P.UsageError where
    "code" .= ("" :: T.Text),
    "message" .= ("Connection error" :: T.Text),
    "details" .= (cs (fromMaybe "" e) :: T.Text)]
-  toJSON e = JSON.toJSON e -- H.Error
+  toJSON (P.SessionError e) = JSON.toJSON e -- H.Error

 instance JSON.ToJSON H.Error where
  toJSON (H.ResultError (H.ServerError c m d h)) = JSON.object [