1 files changed, 11 insertions, 11 deletions

diff --git a/src/Data/JLD/Compaction/InverseContext.hs b/src/Data/JLD/Compaction/InverseContext.hs
index b351e34..03a45f2 100644
--- a/src/Data/JLD/Compaction/InverseContext.hs
+++ b/src/Data/JLD/Compaction/InverseContext.hs
@@ -4,32 +4,32 @@ import Data.JLD.Prelude
 
 import Data.JLD.Model.ActiveContext (ActiveContext (..))
 import Data.JLD.Model.Direction (Direction (..))
-import Data.JLD.Model.InverseContext (InverseContext)
+import Data.JLD.Model.InverseContext (InverseContext, insert)
 import Data.JLD.Model.Keyword (Keyword (..))
 import Data.JLD.Model.Language (Language (Language))
 import Data.JLD.Model.TermDefinition (TermDefinition (..))
 
-import Data.Map qualified as M
+import Data.Map qualified as M (foldlWithKey)
 
 processTerm :: Text -> InverseContext -> Text -> TermDefinition -> InverseContext
 processTerm defaultLangDir out termName TermDefinition{..}
     | Just variableName <- termDefinitionIriMapping =
         out
-            |> M.insert (variableName, container, show KeywordAny, show KeywordNone) termName
+            |> insert variableName container KeywordAny (show KeywordNone) termName
             .> if
                     | termDefinitionReversePropertyFlag ->
-                        M.insert (variableName, container, show KeywordType, show KeywordReverse) termName
+                        insert variableName container KeywordType (show KeywordReverse) termName
                     | termDefinitionTypeMapping == Just (show KeywordNone) ->
-                        M.insert (variableName, container, show KeywordLanguage, show KeywordAny) termName
-                            .> M.insert (variableName, container, show KeywordType, show KeywordAny) termName
+                        insert variableName container KeywordLanguage (show KeywordAny) termName
+                            .> insert variableName container KeywordType (show KeywordAny) termName
                     | Just typeMapping <- termDefinitionTypeMapping ->
-                        M.insert (variableName, container, show KeywordType, typeMapping) termName
+                        insert variableName container KeywordType typeMapping termName
                     | Just langDir <- maybeLangDir ->
-                        M.insert (variableName, container, show KeywordLanguage, langDir) termName
+                        insert variableName container KeywordLanguage langDir termName
                     | otherwise ->
-                        M.insert (variableName, container, show KeywordLanguage, defaultLangDir) termName
-                            .> M.insert (variableName, container, show KeywordLanguage, show KeywordNone) termName
-                            .> M.insert (variableName, container, show KeywordType, show KeywordNone) termName
+                        insert variableName container KeywordLanguage defaultLangDir termName
+                            .> insert variableName container KeywordLanguage (show KeywordNone) termName
+                            .> insert variableName container KeywordType (show KeywordNone) termName
     | otherwise = out
   where
     container = if null termDefinitionContainerMapping then show KeywordNone else fold termDefinitionContainerMapping