diff options
author | Justin Bedo <cu@cua0.org> | 2022-09-30 13:36:15 +1000 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2022-09-30 14:53:40 +1000 |
commit | dc911006d7be248f22db9549b2b85884615e4abc (patch) | |
tree | 7b89aad6f75142c60f1edbee8e097c30597a940b /src/MaveDB.hs | |
parent | 52cda6932504f13f3ea0f933c58de97a296f19bf (diff) |
filter URNs on organism rather than reference
Diffstat (limited to 'src/MaveDB.hs')
-rw-r--r-- | src/MaveDB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/MaveDB.hs b/src/MaveDB.hs index b662231..74653a4 100644 --- a/src/MaveDB.hs +++ b/src/MaveDB.hs @@ -35,7 +35,7 @@ queryURNs = do pure $ rep ^. responseBody & (^.. traverse . runFold ((,) <$> Fold (key "urn" . _String) <*> Fold (key "target" . key "uniprot" . key "identifier" . _String))) - . (^.. folded . filtered (allOf (key "target" . key "reference_maps" . _Array . traverse . key "genome" . key "short_name" . _String) (== "hg38"))) + . (^.. folded . filtered (allOf (key "target" . key "reference_maps" . _Array . traverse . key "genome" . key "organism_name" . _String) (== "Homo sapiens"))) . (^.. folded . filtered (allOf (key "target" . key "type" . _String) (== "Protein coding"))) . (^.. _Array . folded . filtered (allOf (key "target" . key "score_columns" . _Array) (\((^.. traverse . _String) -> scs) -> "hgvs_pro" `elem` scs && "score" `elem` scs))) |