mirror of
https://github.com/Avi-D-coder/implicit-hie.git
synced 2024-11-26 11:25:24 +03:00
if stack packages missing assume it is ["."]
This commit is contained in:
parent
eb606df6c3
commit
a269f57448
@ -31,7 +31,7 @@ newtype Pkgs = Pkgs [FilePath]
|
||||
deriving (Eq, Ord)
|
||||
|
||||
instance FromJSON Pkgs where
|
||||
parseJSON (Object v) = Pkgs <$> v .: "packages"
|
||||
parseJSON (Object v) = Pkgs <$> v .:? "packages" .!= ["."]
|
||||
parseJSON _ = fail "could not read packages from stack.yaml"
|
||||
|
||||
stackYamlPkgs :: FilePath -> MaybeT IO [FilePath]
|
||||
|
Loading…
Reference in New Issue
Block a user