value :: Records -> Maybe ByteString
value (Fix (TreeF (U (Record _ (B v))) _)) = Just v
value :: Records -> Maybe ByteString
value (Fix (TreeF (U (Record _ (B v))) _)) = Just v
value (Fix (TreeF (U (Record _ (B v))) _)) = Just v