{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}

module Eventloop.Module.StdIn.Types where



import GHC.Generics (Generic)

import Control.DeepSeq



data StdInIn = StdInReceivedContents [[Char]]

             | StdInReceivedLine [Char]

             | StdInReceivedChar Char

             deriving (Eq, Show)



data StdInOut = StdInReceiveContents

              | StdInReceiveLine

              | StdInReceiveChar

              deriving (Eq, Show, Generic, NFData)