cli :: IO ()
cli = do
  hSetBuffering stdout NoBuffering
  execParser pinfo >>= run
cli :: IO ()
cli = do
  hSetBuffering stdout NoBuffering
  execParser pinfo >>= run
cli = do
  hSetBuffering stdout NoBuffering
  execParser pinfo >>= run