|
@@ -14,7 +14,7 @@ newtype Revision = Revision String deriving (Eq, Ord, Read, Show)
|
|
|
data Parameter = Parameter String String deriving (Eq, Ord, Read, Show)
|
|
|
|
|
|
data URI = URI {account :: Account, path :: Path, revision :: Maybe Revision, parameters :: [Parameter]}
|
|
|
- deriving (Eq, Ord, Read)
|
|
|
+ deriving (Eq, Ord)
|
|
|
|
|
|
fullPath :: URI -> String
|
|
|
fullPath URI{path=Path p} = intercalate "/" $ map uriEncode p
|