dhall-lang/dhall-kubernetes
1
1
Fork 0
mirror of https://github.com/dhall-lang/dhall-kubernetes.git synced 2024-09-17 10:27:08 +03:00
Code Issues Projects Releases Wiki Activity

Replace error with fail

Browse Source
This commit is contained in:
Alessandro Marrella 2019-12-16 10:30:04 +00:00
parent 02328e146b
commit 7670b516c8
No known key found for this signature in database
GPG Key ID: A1550631FC3976D3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dhall-kubernetes-generator/src/Main.hs
View File

@ -130,12 +130,12 @@ main = do
if crd then do
crdFile <- decodeFileEither filename
case crdFile of
Left e -> error $ "Unable to decode the CRD file. " <> show e
Left e -> fail $ "Unable to decode the CRD file. " <> show e
Right s -> (pure . Data.Map.fromList . maybeToList . Convert.toDefinition) s
else do
swaggerFile <- decodeFileStrict filename
case swaggerFile of
Nothing -> error "Unable to decode the Swagger file"
Nothing -> fail "Unable to decode the Swagger file"
Just (Swagger{..}) -> pure definitions
let fix m = Data.Map.adjust patchCyclicImports (ModelName m)