module Main where
+import System.IO
import Control.Monad
import qualified Data.ByteString.Char8 as C (pack, unpack)
import qualified Data.ByteString.Lazy.Char8 as L (pack, unpack)
cfg <- readConfig confFile
+ hSetBuffering stdin LineBuffering
+ hSetBuffering stdout LineBuffering
ver <- do
let
loopErr e = forever $ do