e54c58c · typeable/compaREST

git.iko.soy/typeable/compaREST

on master help sign in

Fixed an issue where running the GitHub Action on a trigger that is not a PR causes an error (#131)

e54c58ciko5 years ago

github-action/Main.hs+13−7

@@ -9,6 +9,7 @@ import Control.Monad.Freer.GitHub

9import Control.Monad.Freer.Reader

10import Data.OpenApi.Compare.Run

11import Data.Text (Text)

12+import qualified Data.Text as T

12import qualified Data.Yaml.Aeson as Yaml

13import qualified Data.Yaml.Aeson as Yaml

13import qualified GitHub as GH

14import qualified GitHub as GH

14import System.Environment

15import System.Environment

@@ -22,13 +23,18 @@ import Text.Pandoc.Writers

22main :: IO ()

23main :: IO ()

23main = do

24main = do

24 cfg <- decodeEnv >>= either error pure

25 cfg <- decodeEnv >>= either error pure

26+ case sha cfg of

27+ x | T.null . T.strip . GH.untagName $ x -> do

28+ putStrLn "SHA not specified. Exiting without doing anything."

29+ pure ()

30+ _ ->

25− getArgs >>= \case

31+ getArgs >>= \case

26− ["pre"] -> runPre cfg

32+ ["pre"] -> runPre cfg

27− ["run"] -> do

33+ ["run"] -> do

28− oldFile <- getEnv "OLD"

34+ oldFile <- getEnv "OLD"

29− newFile <- getEnv "NEW"

35+ newFile <- getEnv "NEW"

30− runRun cfg (root cfg </> oldFile) (root cfg </> newFile)

36+ runRun cfg (root cfg </> oldFile) (root cfg </> newFile)

31− _ -> error "Invalid arguments."

37+ _ -> error "Invalid arguments."

33runner :: Config -> Eff '[GitHub, Error GH.Error, Reader Config, IO] a -> IO a

39runner :: Config -> Eff '[GitHub, Error GH.Error, Reader Config, IO] a -> IO a

34runner cfg =

40runner cfg =