hack 2009.4.27 → 2009.4.28

raw patch · 6 files changed

+20/−4 lines, 6 files

Files

changelog.md +7/−0
hack.cabal +1/−1
src/Hack/Contrib/File.hs +1/−0
src/Hack/Contrib/Lambda.hs +5/−1
src/Hack/Contrib/Lucky.hs +5/−1
src/Hack/Handler/Hyena.hs +1/−1

changelog.md view

@@ -1,3 +1,10 @@+2009.4.28+-----------++### Fix++* File return status code 200 on success+ 2009.4.27 ---------

hack.cabal view

@@ -1,5 +1,5 @@ Name:                 hack-Version:              2009.4.27+Version:              2009.4.28 Build-type:           Simple Synopsis:             a sexy Haskell Webserver Interface Description:

src/Hack/Contrib/File.hs view

@@ -60,6 +60,7 @@             .set_content_length size             .set_content_type content_type             .set_last_modified mtime_str+            .set_status 200  no_permission path = return $   def

src/Hack/Contrib/Lambda.hs view

@@ -48,5 +48,9 @@ lambda app = \env -> do   if env.path_info.is "/lambda"     then -      return $ def. set_body (data64.unzip64) .set_content_type _TextHtml+      return $ def+        .set_body (data64.unzip64)+        .set_content_type _TextHtml+        .set_status 200+         else app env

src/Hack/Contrib/Lucky.hs view

@@ -25,7 +25,11 @@ lucky app = \env -> do   if env.path_info.is "/lucky"     then -      return $ def. set_body (data64.unzip64) .set_content_type _TextHtml+      return $ def+      .set_body (data64.unzip64)+      .set_content_type _TextHtml+      .set_status 200+         else app env

src/Hack/Handler/Hyena.hs view

@@ -72,7 +72,7 @@   enum <- r.body.enum_string   let hyena_response = r.hack_response_to_hyena_response enum   -  return hyena_response -- (hyena_status, hyena_status_message, hyena_headers, enum)+  return hyena_response    run app = app.hack_to_wai.serve