You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

15 lines
433 B

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Main (main) where
import ClassyPrelude.Conduit
import Shelly (shellyNoDir, run_)
import Shared
main :: IO ()
main = shellyNoDir $ do
forM_ branches $ \branch -> do
run_ "git" ["checkout", branch]
unless (branch == master) $ run_ "git" ["merge", master]
run_ "git" ["diff", "--exit-code"]
run_ "git" ["checkout", "master"]