@@ -206,17 +206,15 @@ value2plan plan = Plan { packages, extras, compilerVersion, compilerPackages }
206
206
}
207
207
_ -> Nothing
208
208
209
- extras = fmap Just $ filterInstallPlan $ \ pkg -> case ( pkg ^. key " type" . _String
210
- , pkg ^. key " style" . _String
211
- , pkg ^. key " pkg-src" . key " type" . _String
212
- , pkg ^. key " pkg-src" . _Object) of
213
- (_, " local" , " local" , _) -> Just $ Package
209
+ extras = fmap Just $ filterInstallPlan $ \ pkg -> case ( pkg ^. key " style" . _String
210
+ , pkg ^. key " pkg-src" . key " type" . _String) of
211
+ (" local" , " local" ) -> Just $ Package
214
212
{ packageVersion = pkg ^. key " pkg-version" . _String
215
213
, packageRevision = Nothing
216
214
, packageFlags = Map. mapMaybe (^? _Bool) $ pkg ^. key " flags" . _Object
217
215
, packageSrc = Just . LocalPath . Text. unpack $ pkg ^. key " pkg-src" . key " path" . _String
218
216
}
219
- (_, " local " , " source-repo" , _ ) -> Just $ Package
217
+ (_, " source-repo" ) -> Just $ Package
220
218
{ packageVersion = pkg ^. key " pkg-version" . _String
221
219
, packageRevision = Nothing
222
220
, packageFlags = Map. mapMaybe (^? _Bool) $ pkg ^. key " flags" . _Object
0 commit comments