dmq: stylish-haskell

Author: coot

decentralized-message-queue/src/DMQ/Protocol/LocalMsgSubmission/Codec.hs

@@ -39,8 +39,8 @@ decodeReject = do
   len <- CBOR.decodeListLen
   tag <- CBOR.decodeWord
   case (tag, len) of
-    (0, 2) -> SigInvalid <$> CBOR.decodeString
-    (1, 1) -> pure SigDuplicate
-    (2, 1) -> pure SigExpired
-    (3, 2) -> SigResultOther <$> CBOR.decodeString
+    (0, 2)     -> SigInvalid <$> CBOR.decodeString
+    (1, 1)     -> pure SigDuplicate
+    (2, 1)     -> pure SigExpired
+    (3, 2)     -> SigResultOther <$> CBOR.decodeString
     _otherwise -> fail $ printf "unrecognized (tag,len) = (%d, %d)" tag len

decentralized-message-queue/src/DMQ/Protocol/LocalMsgSubmission/Type.hs

@@ -12,7 +12,6 @@ module DMQ.Protocol.LocalMsgSubmission.Type
   , module Ouroboros
   ) where
 
-import Data.Typeable
 import Data.Text (Text)
 import Network.TypedProtocol.Core as Core
 import Ouroboros.Network.Protocol.LocalTxSubmission.Type as Ouroboros