X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPostprocess.hs;h=a8359758f9d90eaf107f58fc2bb4cf008b611cac;hp=09665c62c4fe9e2c6f8ee398fbcc1a9c53f5cfb4;hb=c060bff37e29f06e105c0ec2b1f844f55b48906c;hpb=0eeff925cd64a4f38ad6f0e882f9c3bcb9c3f364

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 09665c6..a835975 100644
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -108,7 +108,7 @@ writeDefaultPageIfNeeded ni@(NI {..})
              $ do writeHeader ni "Content-Type" $ Just defaultPageContentType
                   writeHeader ni "Content-Encoding" Nothing
                   res ← readTVar niResponse
-                  let body = getDefaultPage niConfig (Just niRequest) res
+                  let body = defaultPageForResponse niConfig (Just niRequest) res
                   putTMVar niBodyToSend body
 
 completeUnconditionalHeaders ∷ NormalInteraction → STM ()