for-irc.hs

data BEncode = BInt Integer
	     | BString ByteString
	     | BList [BEncode]
             | BDict (Map ByteString BEncode)
	       deriving (Eq, Ord, Show)

getInt i = case i of
    BInt i' -> Just i'
    _       -> Nothing
getString s = case s of
    BString s' -> Just s'
    _          -> Nothing
getList l = case l of
    BList l' -> Just l'
    _        -> Nothing
getDict d = case d of
    BDict d' -> Just d'
    _        -> Nothing