module Network.HTTP.Lucu.Interaction
( Interaction(..)
, SomeInteraction(..)
+ , EndOfInteraction(..)
, SyntacticallyInvalidInteraction(..)
, mkSyntacticallyInvalidInteraction
toInteraction = id
fromInteraction = Just
+-- |'EndOfInteraction' is an 'Interaction' indicating the end of
+-- (possibly pipelined) requests. The connection has already been
+-- closed so no need to reply anything.
+data EndOfInteraction = EndOfInteraction
+ deriving Typeable
+instance Interaction EndOfInteraction
+
-- |'SyntacticallyInvalidInteraction' is an 'Interaction' without even
-- a syntactically valid 'Request'. The response code will always be
-- 'BadRequest'.