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

@ -369,8 +369,8 @@ downloadImport remote importtreeconfig importablecontents = do
f <- fromRepo $ fromTopFilePath $ locworktreefilename loc
backend <- chooseBackend (fromRawFilePath f)
let ks = KeySource
{ keyFilename = (fromRawFilePath f)
, contentLocation = tmpfile
{ keyFilename = f
, contentLocation = toRawFilePath tmpfile
, inodeCache = Nothing
}
fmap fst <$> genKey ks nullMeterUpdate backend