make everything build again after ByteString Key changes

This commit is contained in:
Joey Hess 2019-01-11 16:34:04 -04:00
parent 151562b537
commit 727767e1e2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
23 changed files with 79 additions and 72 deletions

View file

@ -6,6 +6,7 @@
-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Assistant.Threads.SanityChecker (
sanityCheckerStartupThread,
@ -52,6 +53,7 @@ import Utility.DiskFree
import Data.Time.Clock.POSIX
import qualified Data.Text as T
import qualified Data.ByteString as S
{- This thread runs once at startup, and most other threads wait for it
- to finish. (However, the webapp thread does not, to prevent the UI
@ -309,7 +311,7 @@ cleanReallyOldTmp = do
cleanjunk check f = case fileKey (takeFileName f) of
Nothing -> cleanOld check f
Just k
| "GPGHMAC" `isPrefixOf` formatKeyVariety (keyVariety k) ->
| "GPGHMAC" `S.isPrefixOf` formatKeyVariety (keyVariety k) ->
cleanOld check f
| otherwise -> noop