X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Network%2FHTTP%2FLucu%2FPostprocess.hs;h=bc9363d1115de6740032c1d858ac9baab4e65ea3;hb=8225cc52ffe4c3d900ae1f79573089be230b80bd;hp=131cc8ebb3e65f7426a3bf245cc14185a1502795;hpb=7bc27fc4e86df6cb4d269b42252de735247f8c57;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 131cc8e..bc9363d 100644
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -143,6 +143,7 @@ updateResIO (Interaction {..}) f
          new ← unsafeIOToSTM $ f old
          writeTVar itrResponse new
 
+-- FIXME: Narrow the use of IO monad!
 completeUnconditionalHeaders ∷ Config → Response → IO Response
 completeUnconditionalHeaders conf = (compDate =≪) ∘ compServer
       where