@@ -107,6 +107,7 @@ data BaseUrl = BaseUrl
107 { baseUrlScheme :: Scheme -- ^ URI scheme to use
107 { baseUrlScheme :: Scheme -- ^ URI scheme to use
108 , baseUrlHost :: String -- ^ host (eg "haskell.org")
108 , baseUrlHost :: String -- ^ host (eg "haskell.org")
109 , baseUrlPort :: Int -- ^ port (eg 80)
109 , baseUrlPort :: Int -- ^ port (eg 80)
110+ , baseUrlPath :: String -- ^ path (eg "/a/b/c")