-------------------------------------------------------------------------------


main :: IO ()
main = runResourceT $
  sourceHandle stdin $=
  (protoDec linesProtocol) $=
  (protoEnc linesProtocol) $$
  sinkHandle stdout
main :: IO ()
main = runResourceT $
  sourceHandle stdin $=
  (protoDec linesProtocol) $=
  (protoEnc linesProtocol) $$
  sinkHandle stdout
main = runResourceT $
  sourceHandle stdin $=
  (protoDec linesProtocol) $=
  (protoEnc linesProtocol) $$
  sinkHandle stdout