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

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