-| rpt == TR_Expired = (Error $ "Connection to " +++ host +++ " timed out", w)
-| rpt == TR_NoSuccess = (Error $ "Could not connect to " +++ host, w)
+| rpt == TR_Expired
+ = (Error $ "Connection to " +++ host +++ " timed out", state, w)
+| rpt == TR_NoSuccess
+ = (Error $ "Could not connect to " +++ host, state, w)