make everything build again after ByteString Key changes
This commit is contained in:
parent
151562b537
commit
727767e1e2
23 changed files with 79 additions and 72 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue