Fixes for CGI scripts in a subpath
This commit is contained in:
parent
ed2f89ca59
commit
b8c74e86ff
@ -171,7 +171,7 @@ toWaiApp :: (Yesod y, YesodSite y) => y -> IO W.Application
|
|||||||
toWaiApp a =
|
toWaiApp a =
|
||||||
return $ gzip
|
return $ gzip
|
||||||
$ jsonp
|
$ jsonp
|
||||||
$ cleanPath
|
$ cleanPathRel (B.pack $ approot a)
|
||||||
$ toWaiApp' a
|
$ toWaiApp' a
|
||||||
|
|
||||||
toWaiApp' :: (Yesod y, YesodSite y)
|
toWaiApp' :: (Yesod y, YesodSite y)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
name: yesod
|
name: yesod
|
||||||
version: 0.3.1
|
version: 0.3.1.1
|
||||||
license: BSD3
|
license: BSD3
|
||||||
license-file: LICENSE
|
license-file: LICENSE
|
||||||
author: Michael Snoyman <michael@snoyman.com>
|
author: Michael Snoyman <michael@snoyman.com>
|
||||||
@ -23,7 +23,7 @@ library
|
|||||||
build-depends: base >= 4 && < 5,
|
build-depends: base >= 4 && < 5,
|
||||||
time >= 1.1.3 && < 1.2,
|
time >= 1.1.3 && < 1.2,
|
||||||
wai >= 0.1.0 && < 0.2,
|
wai >= 0.1.0 && < 0.2,
|
||||||
wai-extra >= 0.1.2 && < 0.2,
|
wai-extra >= 0.1.3 && < 0.2,
|
||||||
authenticate >= 0.6.2 && < 0.7,
|
authenticate >= 0.6.2 && < 0.7,
|
||||||
bytestring >= 0.9.1.4 && < 0.10,
|
bytestring >= 0.9.1.4 && < 0.10,
|
||||||
directory >= 1 && < 1.1,
|
directory >= 1 && < 1.1,
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user