diff options
Diffstat (limited to 'src/Data/JLD/Util.hs')
-rw-r--r-- | src/Data/JLD/Util.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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) | |||
25 | import Data.Foldable qualified as F (Foldable (..), elem) | 25 | import Data.Foldable qualified as F (Foldable (..), elem) |
26 | import Data.Foldable.WithIndex (FoldableWithIndex (..), ifoldlM) | 26 | import Data.Foldable.WithIndex (FoldableWithIndex (..), ifoldlM) |
27 | import Data.Vector (Vector) | 27 | import Data.Vector (Vector) |
28 | import Data.Vector qualified as V (filter, fromList, null, singleton, snoc, uncons) | 28 | import Data.Vector qualified as V (filter, fromList, null, snoc, uncons) |
29 | 29 | ||
30 | valueContains :: Text -> Value -> Bool | 30 | valueContains :: Text -> Value -> Bool |
31 | valueContains text = \case | 31 | valueContains text = \case |
@@ -78,13 +78,13 @@ flattenSingletonArray = \case | |||
78 | valueToArray :: Value -> Array | 78 | valueToArray :: Value -> Array |
79 | valueToArray = \case | 79 | valueToArray = \case |
80 | Array a -> a | 80 | Array a -> a |
81 | value -> V.singleton value | 81 | value -> pure value |
82 | 82 | ||
83 | valueToNonNullArray :: Value -> Array | 83 | valueToNonNullArray :: Value -> Array |
84 | valueToNonNullArray = \case | 84 | valueToNonNullArray = \case |
85 | Null -> mempty | 85 | Null -> mempty |
86 | Array a -> V.filter (/= Null) a | 86 | Array a -> V.filter (/= Null) a |
87 | value -> V.singleton value | 87 | value -> pure value |
88 | 88 | ||
89 | allStrings :: Array -> Maybe (Vector Text) | 89 | allStrings :: Array -> Maybe (Vector Text) |
90 | allStrings = foldl' go (Just mempty) | 90 | allStrings = foldl' go (Just mempty) |
@@ -106,7 +106,7 @@ mapAddValue key value True object = mapAddValue key value False <| KM.insert key | |||
106 | where | 106 | where |
107 | array = case KM.lookup key object of | 107 | array = case KM.lookup key object of |
108 | Just (Array a) -> a | 108 | Just (Array a) -> a |
109 | Just original -> V.singleton original | 109 | Just original -> pure original |
110 | Nothing -> mempty | 110 | Nothing -> mempty |
111 | mapAddValue key (Array value) False object = foldl' (\o v -> mapAddValue key v False o) object value | 111 | mapAddValue key (Array value) False object = foldl' (\o v -> mapAddValue key v False o) object value |
112 | mapAddValue key value False object = case KM.lookup key object of | 112 | mapAddValue key value False object = case KM.lookup key object of |