wasp/waspc/new-release

#!/usr/bin/env cabal
{- cabal:
  build-depends:
    base == 4.*
    , turtle == 1.5.*
    , regex-tdfa == 1.3.*
    , text == 1.2.*
-}

{-# LANGUAGE OverloadedStrings #-}

import           Control.Monad      (when)
import qualified Data.Text          as T
import qualified Data.Text.IO       as T.IO
import           System.Environment (getArgs)
import           System.Exit        (ExitCode (..))
import qualified Text.Regex.TDFA    as TR
import           Turtle             (empty, shell, shellStrict)

main = do
    args <- getArgs
    case args of
        [version] -> makeNewRelease version
        _         -> putStrLn "Usage: new-release <version>"

makeNewRelease :: String -> IO ()
makeNewRelease newVersion = do
    (ExitSuccess, branchName) <- shellStrict "git rev-parse --abbrev-ref HEAD" empty
    when (T.strip branchName /= "main") $ error "You must run this script from the main branch!"

    let cabalFileName = "waspc.cabal"
    oldCabalFileContents <- T.unpack <$> T.IO.readFile cabalFileName

    (newCabalFileContents, oldVersion) <- updateCabalFile oldCabalFileContents newVersion
    let tag = "v" ++ newVersion

    when (newVersion == oldVersion) $ error "Version you provided is the current version!"

    putStrLn $ unlines
        [ "This will update wasp version from " ++ oldVersion ++ " to " ++ newVersion
        , cabalFileName ++ " will be updated, and this change will be commited and pushed."
        , "Also, tag " ++ tag ++ " will be created and pushed, triggering CI to"
          ++ " create new release on Github."
        , "Are you sure you want to proceed (y/n)?"
        ]
    confirmation <- getLine
    when (confirmation /= "y") $ error "Aborting"

    T.IO.writeFile cabalFileName $ T.pack newCabalFileContents

    -- TODO: Print what I am doing for each step.

    putStrLn $ "\nCreating new commit with updated " ++ cabalFileName ++ " and pushing it.\n"
    ExitSuccess <- shell (T.pack $ "git add " ++ cabalFileName) empty
    ExitSuccess <- shell (T.pack $ "git commit -m \"Updated wasp version to " ++ newVersion ++ ".\"") empty
    gitPushExitCode <- shell "git push" empty
    case gitPushExitCode of
        ExitSuccess -> return ()
        ExitFailure _ -> do
            ExitSuccess <- shell "git reset --hard HEAD~1" empty
            error "Failed to do `git push`, reverted changes."

    putStrLn $ "\nCreating tag " ++ tag ++ " and pushing it.\n"
    ExitSuccess <- shell (T.pack $ "git tag " ++ tag) empty
    ExitSuccess <- shell (T.pack $ "git push origin " ++ tag) empty

    return ()

updateCabalFile :: String -> String -> IO (String, String) -- Returns (updated cabal file contents, old version)
updateCabalFile cabalFileContents newVersion = do
    let (beforeMatch, match, afterMatch, submatches) =
            cabalFileContents TR.=~ ("^(version: *)([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+)" :: String) :: (String, String, String, [String])
    when (null match) $ error "Couldn't locate version in cabal file!?"
    let [matchBeforeVersion, oldVersion] = submatches
    let newContents = beforeMatch ++ matchBeforeVersion ++ newVersion ++ afterMatch
    return (newContents, oldVersion)