diff options
Diffstat (limited to 'Remote/External/Types.hs')
| -rw-r--r-- | Remote/External/Types.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index 0ddbbaf0a..77f3e837e 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -358,9 +358,9 @@ instance Proto.Serializable URI where deserialize = parseURI instance Proto.Serializable ExportLocation where - serialize (ExportLocation loc) = loc - deserialize = Just . ExportLocation + serialize = fromExportLocation + deserialize = Just . mkExportLocation instance Proto.Serializable ExportDirectory where - serialize (ExportDirectory loc) = loc - deserialize = Just . ExportDirectory + serialize = fromExportDirectory + deserialize = Just . mkExportDirectory |