tag :: Records -> Maybe ByteString
tag (Fix (TreeF (U (Record t _)) _)) = Just t
tag :: Records -> Maybe ByteString
tag (Fix (TreeF (U (Record t _)) _)) = Just t
tag (Fix (TreeF (U (Record t _)) _)) = Just t