X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FInteraction.hs;h=91979c9d5449e7a1b2ee7811a0c8294a9d381fc7;hp=468ef1179c78d5e9405f73b7f73879476c18d5fa;hb=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;hpb=8e78bc83bfe67a376293c346ae0b30f1a684c787 diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs index 468ef11..91979c9 100644 --- a/Network/HTTP/Lucu/Interaction.hs +++ b/Network/HTTP/Lucu/Interaction.hs @@ -1,4 +1,3 @@ --- #hide module Network.HTTP.Lucu.Interaction ( Interaction(..) , InteractionState(..) @@ -34,9 +33,7 @@ data Interaction = Interaction { , itrResponse :: !(TVar Response) -- FIXME: この三つは本來 TVar であるべきでないので、唯の Bool にす - -- るに越した事は無いが、それは重要でない。そんな golf で自分の貴重 - -- な時間を /dev/null に突っ込むのは、他にしたい事が何も無くなって - -- からにすべき。 + -- るに越した事は無いが、それは重要でない。 , itrRequestHasBody :: !(TVar Bool) , itrRequestIsChunked :: !(TVar Bool) , itrExpectedContinue :: !(TVar Bool)