Added Node Map Generation algorithm

1 files changed, 13 insertions, 14 deletions

diff --git a/src/Data/JLD/Expansion/Context.hs b/src/Data/JLD/Expansion/Context.hs
index ce61644..99daba0 100644
--- a/src/Data/JLD/Expansion/Context.hs
+++ b/src/Data/JLD/Expansion/Context.hs
@@ -13,7 +13,7 @@ import Data.JLD.Model.Language (Language (..))
 import Data.JLD.Model.TermDefinition (TermDefinition (..), newTermDefinition)
 import Data.JLD.Model.URI (parseUri, uriToIri)
 import Data.JLD.Options (ContextCache, Document (..), DocumentCache, DocumentLoader (..), JLDVersion (..))
-import Data.JLD.Util (flattenSingletonArray, valueContains, valueContainsAny, valueIsTrue, valueToArray)
+import Data.JLD.Util (flattenSingletonArray, valueContains, valueContainsAny, valueToArray)
 
 import Control.Monad.Except (MonadError (..))
 import Data.Aeson (Object, Value (..))
@@ -73,7 +73,7 @@ bacBuildTermDefinition contextDefinition baseUrl term = do
             p
                 { btdParamsBaseUrl = baseUrl
                 , btdParamsOverrideProtectedFlag = bacEnvOverrideProtected
-                , btdParamsProtectedFlag = contextDefinition |> KM.lookup (show KeywordProtected) .> maybe False valueIsTrue
+                , btdParamsProtectedFlag = contextDefinition |> KM.lookup (show KeywordProtected) .> maybe False (== Bool True)
                 , btdParamsRemoteContexts = remoteContexts
                 }
     (activeContext', _) <-
@@ -246,20 +246,19 @@ bacProcessItem baseUrl item = do
                 Nothing -> pure ()
 
             -- 5.13.
+            let filteredKeywords =
+                    [ KeywordBase
+                    , KeywordDirection
+                    , KeywordImport
+                    , KeywordLanguage
+                    , KeywordPropagate
+                    , KeywordProtected
+                    , KeywordVersion
+                    , KeywordVocab
+                    ]
             KM.keys contextDefinition'
                 |> fmap K.toText
-                .> filter
-                    ( `isNotKeyword`
-                        [ KeywordBase
-                        , KeywordDirection
-                        , KeywordImport
-                        , KeywordLanguage
-                        , KeywordPropagate
-                        , KeywordProtected
-                        , KeywordVersion
-                        , KeywordVocab
-                        ]
-                    )
+                .> filter (`isNotKeyword` filteredKeywords)
                 .> mapM_ (bacBuildTermDefinition contextDefinition' baseUrl)
         -- 5.3.
         _ -> throwError <| Left InvalidLocalContext