xref :: Records -> Maybe ByteString
xref (Fix (TreeF (U (Record _ (X (XRef x)))) _)) = Just x
xref :: Records -> Maybe ByteString
xref (Fix (TreeF (U (Record _ (X (XRef x)))) _)) = Just x
xref (Fix (TreeF (U (Record _ (X (XRef x)))) _)) = Just x