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/Util.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Data/JLD/Util.hs') diff --git a/src/Data/JLD/Util.hs b/src/Data/JLD/Util.hs index 26b2755..8d84778 100644 --- a/src/Data/JLD/Util.hs +++ b/src/Data/JLD/Util.hs @@ -25,7 +25,7 @@ import Data.Aeson.KeyMap qualified as KM (insert, lookup, member) import Data.Foldable qualified as F (Foldable (..), elem) import Data.Foldable.WithIndex (FoldableWithIndex (..), ifoldlM) import Data.Vector (Vector) -import Data.Vector qualified as V (filter, fromList, null, singleton, snoc, uncons) +import Data.Vector qualified as V (filter, fromList, null, snoc, uncons) valueContains :: Text -> Value -> Bool valueContains text = \case @@ -78,13 +78,13 @@ flattenSingletonArray = \case valueToArray :: Value -> Array valueToArray = \case Array a -> a - value -> V.singleton value + value -> pure value valueToNonNullArray :: Value -> Array valueToNonNullArray = \case Null -> mempty Array a -> V.filter (/= Null) a - value -> V.singleton value + value -> pure value allStrings :: Array -> Maybe (Vector Text) allStrings = foldl' go (Just mempty) @@ -106,7 +106,7 @@ mapAddValue key value True object = mapAddValue key value False <| KM.insert key where array = case KM.lookup key object of Just (Array a) -> a - Just original -> V.singleton original + Just original -> pure original Nothing -> mempty mapAddValue key (Array value) False object = foldl' (\o v -> mapAddValue key v False o) object value mapAddValue key value False object = case KM.lookup key object of -- cgit v1.2.3-54-g00ecf