more RawFilePath conversion

535/645

This commit was sponsored by Brett Eisenberg on Patreon.
This commit is contained in:
Joey Hess 2020-11-03 10:11:04 -04:00
parent 55400a03d3
commit eb42cd4d46
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
23 changed files with 182 additions and 159 deletions

View file

@ -5,6 +5,8 @@
- Licensed under the GNU AGPL version 3 or higher.
-}
{-# LANGUAGE OverloadedStrings #-}
module Command.AddUnused where
import Logs.Location
@ -33,7 +35,7 @@ perform key = next $ do
addLink (CheckGitIgnore False) file key Nothing
return True
where
file = "unused." ++ fromRawFilePath (keyFile key)
file = "unused." <> keyFile key
{- The content is not in the annex, but in another directory, and
- it seems better to error out, rather than moving bad/tmp content into