From 77447e837f7461a337eec09845ad4b24dea1cce4 Mon Sep 17 00:00:00 2001 From: Volpeon Date: Sat, 24 Jun 2023 11:14:19 +0200 Subject: Update --- src/Data/JLD/Model/InverseContext.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/JLD/Model') diff --git a/src/Data/JLD/Model/InverseContext.hs b/src/Data/JLD/Model/InverseContext.hs index ee85ce9..95cdeb8 100644 --- a/src/Data/JLD/Model/InverseContext.hs +++ b/src/Data/JLD/Model/InverseContext.hs @@ -12,7 +12,7 @@ type InverseContext = Map Text (Map Text (Map Keyword (Map Text Text))) hasKey3 :: Text -> Text -> Keyword -> InverseContext -> Bool hasKey3 var container type' inverseContext = - M.lookup var inverseContext >>= M.lookup container >>= M.lookup type' |> isJust + M.lookup var inverseContext >>= M.lookup container |> maybe False (M.member type') lookup4 :: Text -> Text -> Keyword -> Text -> InverseContext -> Maybe Text lookup4 var container type' typeMapping inverseContext = -- cgit v1.2.3-54-g00ecf