main :: Effect Unit
main = runAff_ (either throwException pure) do
  void $ join $ runSpecAndExitProcess' ({ defaultConfig: defaultConfig { timeout = Just $ Milliseconds 20_000.0 }, parseCLIOptions: true }) [ consoleReporter ] $ sequential spec


  describe "Update command" do
    aroundAll cloneTestRepo cleanupTestRepo do
      after_ gitCleanReset do


aroundAll
  :: forall m g i a
   . MonadEffect m
  => MonadAff g
  => MonadError Error g
  => g i
  -> (i → g Unit)
  -> SpecT g i m a
  -> SpecT g Unit m a
aroundAll setup cleanup use =
  beforeAll setup $ afterAll cleanup $ use