cc.hell

cc.hell.hs

#!/usr/bin/env hell

-- Check all the prefixes and permitted delimiters against
-- <https://www.conventionalcommits.org/en/v1.0.0/>

main = do
  title <- Environment.getEnv "PR_TITLE"

  if List.or $
      List.map (\prefix ->
                 List.or [
                   Text.isPrefixOf (Text.concat [prefix, ": "]) title,
                   Text.isPrefixOf (Text.concat [prefix, "("]) title,
                   Text.isPrefixOf (Text.concat [prefix, "!"]) title
                 ])
                ["fix", "feat", "build", "chore", "ci", "docs", "style",
                 "refactor", "perf", "test", "BREAKING CHANGE", "revert"]
     then Text.putStrLn "Title is OK."
     else Error.error "Title is not a conventional commit. See <https://www.conventionalcommits.org/en/v1.0.0/>"