diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-05-01 10:07:04 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-05-01 10:07:04 -0400 |
commit | c39c1688961b16706a2d65a6453f5001fa87ea10 (patch) | |
tree | 22b50a87024cf8441b46845c042b80db7dbadd44 /SessionID.hs | |
parent | 7c2403a87a1b93f2c035b64901ad24540abd644d (diff) | |
download | debug-me-c39c1688961b16706a2d65a6453f5001fa87ea10.tar.gz |
fix url
Diffstat (limited to 'SessionID.hs')
-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 } |