From b19440a4a30828f12f8eafaa7292152ecf733334 Mon Sep 17 00:00:00 2001 From: Volpeon Date: Sat, 24 Jun 2023 08:58:22 +0200 Subject: WIP: Compaction --- src/Data/JLD.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Data/JLD.hs') diff --git a/src/Data/JLD.hs b/src/Data/JLD.hs index a7042dc..40abae1 100644 --- a/src/Data/JLD.hs +++ b/src/Data/JLD.hs @@ -26,8 +26,7 @@ import Data.JLD.Options import Data.JLD.Util (flattenSingletonArray, valueToArray) import Data.Aeson (Value (..)) -import Data.Aeson.KeyMap qualified as KM -import Data.Vector qualified as V (singleton) +import Data.Aeson.KeyMap qualified as KM (lookup, size) import Text.URI (URI) data JLDExpansionParams e m = JLDExpansionParams @@ -72,7 +71,7 @@ expand document baseUrl paramsFn = do jldExpansionParamsExpandContext <&> flattenSingletonArray .> \case Array expandedContext -> Array expandedContext (Object expandedContext) | Just ctx <- KM.lookup (show KeywordContext) expandedContext -> ctx - expandedContext -> Array <| V.singleton expandedContext + expandedContext -> Array <| pure expandedContext activeContext' <- case maybeExpandContext of Just expandContext -> -- cgit v1.2.3-54-g00ecf