summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJustin Bedo <cu@cua0.org>2022-11-25 17:19:44 +1100
committerJustin Bedo <cu@cua0.org>2022-11-25 17:20:07 +1100
commit09ef633cb590ff08dc4c679ee7e023501342549d (patch)
treea6509e3a7c37a8b4d810db9171aeca0c2db70346
parent8460d9a2138ceb0ec45e70f55d20c0073b078621 (diff)
bugfix: scores_columns not under targetHEADmaster
-rw-r--r--src/MaveDB.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/MaveDB.hs b/src/MaveDB.hs
index 74653a4..f33abe9 100644
--- a/src/MaveDB.hs
+++ b/src/MaveDB.hs
@@ -37,7 +37,7 @@ queryURNs = do
& (^.. 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 "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)))
+ . (^.. _Array . folded . filtered (allOf (key "score_columns" . _Array) (\((^.. traverse . _String) -> scs) -> "hgvs_pro" `elem` scs && "score" `elem` scs)))
getScores :: URN -> IO [Score]
getScores urn = do