File tree 1 file changed +6
-6
lines changed
1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -62,10 +62,10 @@ readPackageFile :: IO PackageConfig
62
62
readPackageFile = do
63
63
exists <- testfile packageFile
64
64
unless exists $ exitWithErr " psc-package.json does not exist. Maybe you need to run psc-package init?"
65
- mpkg <- Aeson. decodeStrict . encodeUtf8 <$> readTextFile packageFile
65
+ mpkg <- Aeson. eitherDecodeStrict . encodeUtf8 <$> readTextFile packageFile
66
66
case mpkg of
67
- Nothing -> exitWithErr " Unable to parse psc-package.json"
68
- Just pkg -> return pkg
67
+ Left errors -> exitWithErr $ " Unable to parse psc-package.json: " <> T. pack errors
68
+ Right pkg -> return pkg
69
69
70
70
packageConfigToJSON :: PackageConfig -> Text
71
71
packageConfigToJSON =
@@ -145,10 +145,10 @@ readPackageSet PackageConfig{ set } = do
145
145
let dbFile = " .psc-package" </> fromText set </> " .set" </> " packages.json"
146
146
exists <- testfile dbFile
147
147
unless exists $ exitWithErr $ format (fp% " does not exist" ) dbFile
148
- mdb <- Aeson. decodeStrict . encodeUtf8 <$> readTextFile dbFile
148
+ mdb <- Aeson. eitherDecodeStrict . encodeUtf8 <$> readTextFile dbFile
149
149
case mdb of
150
- Nothing -> exitWithErr " Unable to parse packages.json"
151
- Just db -> return db
150
+ Left errors -> exitWithErr $ " Unable to parse packages.json: " <> T. pack errors
151
+ Right db -> return db
152
152
153
153
writePackageSet :: PackageConfig -> PackageSet -> IO ()
154
154
writePackageSet PackageConfig { set } =
You can’t perform that action at this time.
0 commit comments