FilePath :: FilePath  -- ^ The root directory.
           -> Text      -- ^ The file name.
           -> FilePath  -- ^ @root/filename.body@.
toFilePath root = (root <>) . T.unpack . (<> ".body")


toFilePath :: FilePath  -- ^ The root directory.
           -> Text      -- ^ The file name.
           -> FilePath
toFilePath root = (root <>) . T.unpack . (<> ".body")
toFilePath root = (root <>) . T.unpack . (<> ".body")