convert KeySource to RawFilePath

Types/KeySource.hs

@@ -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)