diff options
Diffstat (limited to 'src/Store/Query.hs')
| -rw-r--r-- | src/Store/Query.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Store/Query.hs b/src/Store/Query.hs index c400206..091aae7 100644 --- a/src/Store/Query.hs +++ b/src/Store/Query.hs @@ -8,6 +8,7 @@ import Control.Arrow (second) import Control.Exception (throw) import Control.Monad.Trans (lift) import Data.Aeson qualified as J +import Data.Aeson.Encode.Pretty qualified as JP import Data.Aeson.Key qualified as JK import Data.Aeson.KeyMap qualified as JM import Data.List (foldl', foldl1') @@ -175,4 +176,4 @@ decodeFile c fn = do encodeFile :: String -> String -> J.Value -> S.StoreM () encodeFile c fn (J.Object kvs) = do let fp = c </> fn - S.writeFile fp (J.encode (J.Object (JM.filterWithKey (\k _ -> k /= "$fileName") kvs))) + S.writeFile fp (JP.encodePretty (J.Object (JM.filterWithKey (\k _ -> k /= "$fileName") kvs))) |