send NEW command to SMP server (response is not received for some reason...)

This commit is contained in:
Evgeny Poberezkin committed 2020-12-29 20:51:09 +00:00
1 parent d6e1aeacdf
commit cdf8695bef
7 files changed
+140 -29

No files matched your search

+1 -1
View File
@@ -145,7 +145,7 @@ serializeCommand = \case
type Encoded = ByteString
-- newtype to avoid accidentally changing order of transmission parts
newtype CorrId = CorrId {bs :: ByteString} deriving (Eq, Show)
newtype CorrId = CorrId {bs :: ByteString} deriving (Eq, Ord, Show)
instance IsString CorrId where
fromString = CorrId . fromString