convert KeySource to RawFilePath

This commit is contained in:
Joey Hess 2020-02-21 09:34:59 -04:00
parent e468fbc518
commit c31e1be781
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
14 changed files with 74 additions and 55 deletions

View file

@ -8,6 +8,7 @@
module Types.KeySource where
import Utility.InodeCache
import System.FilePath.ByteString (RawFilePath)
{- When content is in the process of being ingested into the annex,
- and a Key generated from it, this data type is used.
@ -22,8 +23,8 @@ import Utility.InodeCache
- files that may be made while they're in the process of being ingested.
-}
data KeySource = KeySource
{ keyFilename :: FilePath
, contentLocation :: FilePath
{ keyFilename :: RawFilePath
, contentLocation :: RawFilePath
, inodeCache :: Maybe InodeCache
}
deriving (Show)