more OsPath conversion
Sponsored-by: Luke T. Shumaker
This commit is contained in:
parent
7da6f83582
commit
0376bc5ee0
7 changed files with 130 additions and 134 deletions
8
Remote/External/Types.hs
vendored
8
Remote/External/Types.hs
vendored
|
@ -480,12 +480,12 @@ instance Proto.Serializable URI where
|
|||
deserialize = parseURIPortable
|
||||
|
||||
instance Proto.Serializable ExportLocation where
|
||||
serialize = fromRawFilePath . fromExportLocation
|
||||
deserialize = Just . mkExportLocation . toRawFilePath
|
||||
serialize = fromOsPath . fromExportLocation
|
||||
deserialize = Just . mkExportLocation . toOsPath
|
||||
|
||||
instance Proto.Serializable ExportDirectory where
|
||||
serialize = fromRawFilePath . fromExportDirectory
|
||||
deserialize = Just . mkExportDirectory . toRawFilePath
|
||||
serialize = fromOsPath . fromExportDirectory
|
||||
deserialize = Just . mkExportDirectory . toOsPath
|
||||
|
||||
instance Proto.Serializable ExtensionList where
|
||||
serialize (ExtensionList l) = unwords l
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue