hack-handler-kibro 2009.4.30 → 2009.4.51
raw patch · 3 files changed
+16/−6 lines, 3 filesdep −mpsdep ~hackPVP ok
version bump matches the API change (PVP)
Dependencies removed: mps
Dependency ranges changed: hack
API changes (from Hackage documentation)
Files
- changelog.md +7/−0
- hack-handler-kibro.cabal +2/−2
- src/Hack/Handler/Kibro.hs +7/−4
changelog.md view
@@ -1,3 +1,10 @@+2009.4.51+---------++### Fix++* do not depend on mps+ 2009.4.30 -----------
hack-handler-kibro.cabal view
@@ -1,5 +1,5 @@ Name: hack-handler-kibro-Version: 2009.4.30+Version: 2009.4.51 Build-type: Simple Synopsis: Hack Kibro handler Description: Hack Kibro handler@@ -15,7 +15,7 @@ library ghc-options: -Wall- build-depends: base, cgi, network, data-default >= 0.2, mps >= 2009.4.21, hack >= 2009.4.30, kibro >= 0.4.3+ build-depends: base, cgi, network, data-default >= 0.2, hack >= 2009.4.51, kibro >= 0.4.3 hs-source-dirs: src/ exposed-modules: Hack.Handler.Kibro
src/Hack/Handler/Kibro.hs view
@@ -6,9 +6,12 @@ import Network.URI import Data.Default import Prelude hiding ((.), (^))-import MPSUTF8 import System.IO +(.) :: a -> (a -> b) -> b+a . f = f a+infixl 9 .+ run :: Application -> IO () run app' = startKibro [("", handle app')] where@@ -31,17 +34,17 @@ , server_name = server_name' , server_port = server_port' , hack_input = hack_input'- , hack_errors = \x -> hPutStr stderr (x.u2b) } .return where - remove_question_mark = dropWhile (is '?')+ remove_question_mark = dropWhile (== '?') handle app = do env <- get_env response <- app env .liftIO -- set response- response.headers.mapM_ (splash setHeader)+ response.headers.mapM_ (uncurry setHeader) response.status.show.setHeader "Status" response.body.output+