finished this stage of the RawFilePath conversion

Finally compiles again, and test suite passes.

This commit was sponsored by Brock Spratlen on Patreon.
This commit is contained in:
Joey Hess 2020-11-04 14:20:37 -04:00
parent 4bcb4030a5
commit 5a1e73617d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
36 changed files with 188 additions and 147 deletions

View file

@ -16,7 +16,7 @@ import Assistant.WebApp.Common
import qualified Annex
import qualified Git
import Config
import Config.Files
import Config.Files.AutoStart
import Annex.NumCopies
import Utility.DataUnits
import Git.Config
@ -24,6 +24,7 @@ import Types.Distribution
import qualified BuildInfo
import qualified Data.Text as T
import qualified System.FilePath.ByteString as P
data PrefsForm = PrefsForm
{ diskReserve :: Text
@ -119,5 +120,5 @@ postPreferencesR = page "Preferences" (Just Configuration) $ do
inAutoStartFile :: Annex Bool
inAutoStartFile = do
here <- liftIO . absPath =<< fromRepo Git.repoPath
any (`equalFilePath` here) . toRawFilePath
any (`P.equalFilePath` here) . map toRawFilePath
<$> liftIO readAutoStartFile