1 files changed, 1 insertions, 1 deletions

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 =