commandLoop :: (Proxy p) => () -> Pipe (StateP Options (ReaderP Settings p)) CommandObj ClientDirective GHC.Ghc ()
commandLoop () = do
  let status = respond . ClientLog "CommandLoop"
  forever $ do
    unitD ->> reconfigure
    status "Process commands"
    (request () >>= (unitD ->>) . processCommandObj) `untilM` use needReconfig
commandLoop :: (Proxy p) => () -> Pipe (StateP Options (ReaderP Settings p)) CommandObj ClientDirective GHC.Ghc ()
commandLoop () = do
  let status = respond . ClientLog "CommandLoop"
  forever $ do
    unitD ->> reconfigure
    status "Process commands"
    (request () >>= (unitD ->>) . processCommandObj) `untilM` use needReconfig
commandLoop () = do
  let status = respond . ClientLog "CommandLoop"
  forever $ do
    unitD ->> reconfigure
    status "Process commands"
    (request () >>= (unitD ->>) . processCommandObj) `untilM` use needReconfig