X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FInternal.hs;h=f8ea1b2aaf5b3b35edad73d7b3da2731d4b08d18;hb=b2da45926a7900603a5426e0c6d65e3ca630a1a2;hp=b5fad5952f8463b16adbdcf27e98a91cbcfed909;hpb=68afccfff5a39e92903c467fac3a99734ce8a404;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Resource/Internal.hs b/Network/HTTP/Lucu/Resource/Internal.hs
index b5fad59..f8ea1b2 100644
--- a/Network/HTTP/Lucu/Resource/Internal.hs
+++ b/Network/HTTP/Lucu/Resource/Internal.hs
@@ -376,6 +376,7 @@ deleteHeader name = liftIO ∘ atomically ∘ go =≪ getInteraction
 putBuilder ∷ Builder → Resource ()
 putBuilder b = liftIO ∘ atomically ∘ go =≪ getInteraction
     where
+      -- FIXME: should see if resCanHaveBody.
       go ∷ NormalInteraction → STM ()
       go ni@(NI {..})
           = do driftTo' ni SendingBody