From b19440a4a30828f12f8eafaa7292152ecf733334 Mon Sep 17 00:00:00 2001
From: Volpeon <github@volpeon.ink>
Date: Sat, 24 Jun 2023 08:58:22 +0200
Subject: WIP: Compaction

---
 src/Data/JLD/Model/ActiveContext.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Data/JLD/Model/ActiveContext.hs')

diff --git a/src/Data/JLD/Model/ActiveContext.hs b/src/Data/JLD/Model/ActiveContext.hs
index 5423036..f2118c4 100644
--- a/src/Data/JLD/Model/ActiveContext.hs
+++ b/src/Data/JLD/Model/ActiveContext.hs
@@ -1,4 +1,4 @@
-module Data.JLD.Model.ActiveContext ( ActiveContext (..), newActiveContext, lookupTerm, containsProtectedTerm,) where
+module Data.JLD.Model.ActiveContext (ActiveContext (..), newActiveContext, lookupTerm, containsProtectedTerm) where
 
 import Data.JLD.Prelude
 
@@ -15,7 +15,7 @@ data ActiveContext = ActiveContext
     { activeContextTerms :: Map Text TermDefinition
     , activeContextBaseIri :: Maybe IRIRef
     , activeContextBaseUrl :: Maybe URI
-    , activeContextInverseContext :: InverseContext
+    , activeContextInverseContext :: Maybe InverseContext
     , activeContextPreviousContext :: Maybe ActiveContext
     , activeContextVocabularyMapping :: Maybe Text
     , activeContextDefaultLanguage :: Maybe Language
@@ -30,7 +30,7 @@ newActiveContext fn =
             { activeContextTerms = mempty
             , activeContextBaseIri = Nothing
             , activeContextBaseUrl = Nothing
-            , activeContextInverseContext = mempty
+            , activeContextInverseContext = Nothing
             , activeContextPreviousContext = Nothing
             , activeContextVocabularyMapping = Nothing
             , activeContextDefaultLanguage = Nothing
-- 
cgit v1.2.3-54-g00ecf