typeable/compaREST
1
0
Fork 0
mirror of https://github.com/typeable/compaREST.git synced 2024-12-25 20:21:36 +03:00
Code Issues Projects Releases Wiki Activity

Handle empty sha

Browse Source
This commit is contained in:
iko 2022-02-16 15:46:33 +03:00
parent 3a4e535a0a
commit c80b7159c8
Signed by: iko
GPG Key ID: 82C257048D1026F2
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
github-action/Main.hs
View File

@ -9,6 +9,7 @@ import Control.Monad.Freer.GitHub
import Control.Monad.Freer.Reader
import Data.OpenApi.Compare.Run
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Yaml.Aeson as Yaml
import qualified GitHub as GH
import System.Environment
@ -22,13 +23,16 @@ import Text.Pandoc.Writers
main :: IO ()
main = do
cfg <- decodeEnv >>= either error pure
getArgs >>= \case
["pre"] -> runPre cfg
["run"] -> do
oldFile <- getEnv "OLD"
newFile <- getEnv "NEW"
runRun cfg (root cfg </> oldFile) (root cfg </> newFile)
_ -> error "Invalid arguments."
if T.null . T.strip . GH.untagName . sha $ cfg
then putStrLn "Supplied empty SHA. Assuming you don't want me to run."
else
getArgs >>= \case
["pre"] -> runPre cfg
["run"] -> do
oldFile <- getEnv "OLD"
newFile <- getEnv "NEW"
runRun cfg (root cfg </> oldFile) (root cfg </> newFile)
_ -> error "Invalid arguments."
runner :: Config -> Eff '[GitHub, Error GH.Error, Reader Config, IO] a -> IO a
runner cfg =