@@ -165,6 +165,7 @@ instance AsError Error where
165165data Service = Service
166166 { _svcId :: !ServiceId
167167 , _svcHost :: !ByteString
168+ , _svcPath :: !Builder
168169 , _svcPort :: !Int
169170 , _svcSecure :: !Bool
170171 , _svcTimeout :: !(Maybe Seconds)
@@ -174,6 +175,7 @@ defaultService :: ServiceId -> ByteString -> Service
174175defaultService i h = Service
175176 { _svcId = i
176177 , _svcHost = h
178+ , _svcPath = mempty
177179 , _svcPort = 443
178180 , _svcSecure = True
179181 , _svcTimeout = Just 70
@@ -182,6 +184,9 @@ defaultService i h = Service
182184serviceHost :: Lens' Service ByteString
183185serviceHost = lens _svcHost (\s a -> s { _svcHost = a })
184186
187+servicePath :: Lens' Service Builder
188+servicePath = lens _svcPath (\s a -> s { _svcPath = a })
189+
185190servicePort :: Lens' Service Int
186191servicePort = lens _svcPort (\s a -> s { _svcPort = a })
187192