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

@ -12,6 +12,8 @@ module Types.Backend where
import Types.Key
import Types.KeySource
import Utility.FileSystemEncoding
data BackendA a = Backend
{ backendVariety :: KeyVariety
, getKey :: KeySource -> a (Maybe Key)
@ -28,7 +30,7 @@ data BackendA a = Backend
}
instance Show (BackendA a) where
show backend = "Backend { name =\"" ++ formatKeyVariety (backendVariety backend) ++ "\" }"
show backend = "Backend { name =\"" ++ decodeBS (formatKeyVariety (backendVariety backend)) ++ "\" }"
instance Eq (BackendA a) where
a == b = backendVariety a == backendVariety b