diff options
Diffstat (limited to 'Serialization.hs')
| -rw-r--r-- | Serialization.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Serialization.hs b/Serialization.hs index eb6394c..9803d71 100644 --- a/Serialization.hs +++ b/Serialization.hs @@ -12,6 +12,7 @@ import Types import Raaz.Core.Encode import qualified Data.ByteString as B import qualified Data.ByteString.UTF8 as BU8 +import qualified Data.Text as T import Data.Monoid import Data.Word @@ -19,7 +20,7 @@ import Data.Word -- For example "gpg C910D9222512E3C7", or "file path". instance Encodable SecretKeySource where toByteString (GpgKey (KeyId b)) = - "gpg" <> B.singleton sepChar <> b + "gpg" <> B.singleton sepChar <> BU8.fromString (T.unpack b) toByteString (KeyFile f) = "file" <> B.singleton sepChar <> BU8.fromString f fromByteString b = case B.break (== sepChar) b of @@ -28,7 +29,7 @@ instance Encodable SecretKeySource where | otherwise -> let i = B.drop 1 rest in case t of - "gpg" -> Just $ GpgKey (KeyId i) + "gpg" -> Just $ GpgKey (KeyId (T.pack (BU8.toString i))) "file" -> Just $ KeyFile (BU8.toString i) _ -> Nothing |