From 09ef633cb590ff08dc4c679ee7e023501342549d Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Fri, 25 Nov 2022 17:19:44 +1100 Subject: bugfix: scores_columns not under target --- src/MaveDB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3