diff options
Diffstat (limited to 'Command/TransferKeys.hs')
-rw-r--r-- | Command/TransferKeys.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index d875f496d..855ca4670 100644 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -116,10 +116,10 @@ instance TCSerialized Direction where deserialize _ = Nothing instance TCSerialized AssociatedFile where - serialize (Just f) = f - serialize Nothing = "" - deserialize "" = Just Nothing - deserialize f = Just $ Just f + serialize (AssociatedFile (Just f)) = f + serialize (AssociatedFile Nothing) = "" + deserialize "" = Just (AssociatedFile Nothing) + deserialize f = Just (AssociatedFile (Just f)) instance TCSerialized RemoteName where serialize n = n |