diff options
| -rw-r--r-- | SessionID.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SessionID.hs b/SessionID.hs index 7592e81..956e17f 100644 --- a/SessionID.hs +++ b/SessionID.hs @@ -78,4 +78,4 @@ withSessionID dir a = do go sid hv = a (hv, sid) sessionIDUrl :: SessionID -> URI -> URI -sessionIDUrl (SessionID f) serverurl = serverurl { uriPath = f } +sessionIDUrl (SessionID f) serverurl = serverurl { uriPath = "/" ++ f } |