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)
 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