printResult :: WholeFile Char () -> Text
printResult = X.pack . toList . fmap fst . t'WholeFile
printResult :: WholeFile Char () -> Text
printResult = X.pack . toList . fmap fst . t'WholeFile
printResult = X.pack . toList . fmap fst . t'WholeFile