viewTV :: ByteString 
       -> Records
       -> Maybe (Payload, [Records])
viewTV t (Fix (TreeF (U (Record k v)) rs)) | k == t = Just (v,rs)
viewTV :: ByteString 
       -> Records
       -> Maybe (Payload, [Records])
viewTV t (Fix (TreeF (U (Record k v)) rs)) | k == t = Just (v,rs)
viewTV t (Fix (TreeF (U (Record k v)) rs)) | k == t = Just (v,rs)