use substring in PROXY UNEXPECTED error

This commit is contained in:
Evgeny Poberezkin
2024-04-17 22:58:01 +01:00
parent 4d7012a5bb
commit daece6b736
+1 -1
View File
@@ -488,7 +488,7 @@ smpProxyError :: SMPClientError -> ErrorType
smpProxyError = \case
PCEProtocolError et -> PROXY (PROTOCOL et)
PCEResponseError et -> PROXY (RESPONSE et)
PCEUnexpectedResponse bs -> PROXY (UNEXPECTED $ B.unpack bs)
PCEUnexpectedResponse bs -> PROXY (UNEXPECTED $ B.unpack $ B.take 32 bs)
PCEResponseTimeout -> PROXY TIMEOUT
PCENetworkError -> PROXY NETWORK
PCEIncompatibleHost -> PROXY BAD_HOST