X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FStaticFile.hs;h=c227205a3759a6df79fbe2eb9498c2c46eba9fe0;hp=8f93513659affc2dbf5c0ddbe31fe27eab6929ae;hb=1789cee5ee66d2f7f2b26280be2f13eac4df7980;hpb=1f3ac4a08b413a7438258c8e196873f5e8a9718f

diff --git a/Network/HTTP/Lucu/StaticFile.hs b/Network/HTTP/Lucu/StaticFile.hs
index 8f93513..c227205 100644
--- a/Network/HTTP/Lucu/StaticFile.hs
+++ b/Network/HTTP/Lucu/StaticFile.hs
@@ -72,7 +72,7 @@ handleStaticFile sendContent path
            Just mime → setContentType mime
 
          when sendContent
-             $ liftIO (B.readFile path) ≫= output
+             $ liftIO (B.readFile path) ≫= putChunk
 
 -- |@'generateETagFromFile' fpath@ generates a strong entity tag from
 -- a file. The file doesn't necessarily have to be a regular file; it