1 files changed, 2 insertions, 0 deletions

diff --git a/dht/src/Data/Tox/Msg.hs b/dht/src/Data/Tox/Msg.hs
index 66ec6eb1..8819faa7 100644
--- a/dht/src/Data/Tox/Msg.hs
+++ b/dht/src/Data/Tox/Msg.hs
@@ -97,6 +97,7 @@ deriving instance (Show (Pkt a))
 
 type CryptoMessage = DSum Pkt Identity
 
+msgID :: DSum Pkt Identity -> SomeMsg
 msgID (Pkt mid :=> Identity _) = M mid
 
 -- TODO
@@ -227,6 +228,7 @@ fromEnum8 = fromIntegral . fromEnum
 
 data LossyOrLossless = Lossless | Lossy deriving (Eq,Ord,Enum,Show,Bounded)
 
+someLossyness :: SomeMsg -> LossyOrLossless
 someLossyness (M m) = lossyness m
 
 lossyness :: KnownNat n => Msg n t -> LossyOrLossless