module Codec.Archive.Tar.PackAscii ( packAscii ) where import qualified Data.ByteString.Char8 as BS.Char8 import Data.Char import GHC.Stack -- | We should really migrate to @OsPath@ from @filepath@ package, -- but for now let's not corrupt data silently. packAscii :: HasCallStack => FilePath -> BS.Char8.ByteString packAscii xs | all isAscii xs = BS.Char8.pack xs | otherwise = error $ "packAscii: only ASCII filenames are supported, but got " ++ xs