From 45163fbc93b2bf2f7cb1fc3242ce5d3f51076601 Mon Sep 17 00:00:00 2001
From: pacien
Date: Wed, 25 Dec 2019 22:56:16 +0100
Subject: cosmetic

---
 compiler/src/Lib.hs | 8 +++++---
 readme.md           | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/src/Lib.hs b/compiler/src/Lib.hs
index abdbeb7..2068b4a 100644
--- a/compiler/src/Lib.hs
+++ b/compiler/src/Lib.hs
@@ -28,7 +28,9 @@ import GHC.Generics (Generic)
 import Data.Function ((&))
 import System.Directory (createDirectoryIfMissing)
 import System.FilePath (dropFileName, (</>))
-import Data.Aeson (Object, ToJSON, FromJSON, encodeFile)
+
+import Data.Aeson (ToJSON, FromJSON)
+import qualified Data.Aeson as JSON
 
 import Files (FileName, readDirectory)
 import Input (decodeYamlFile, readInputTree)
@@ -42,7 +44,7 @@ data CompilerConfig = CompilerConfig
 
 data GalleryConfig = GalleryConfig
   { compiler :: CompilerConfig
-  , viewer :: Data.Aeson.Object
+  , viewer :: JSON.Object
   } deriving (Generic, FromJSON, Show)
 
 readConfig :: FileName -> IO GalleryConfig
@@ -92,7 +94,7 @@ process inputDirPath outputDirPath =
     writeJSON :: ToJSON a => FileName -> a -> IO ()
     writeJSON path obj =
       createDirectoryIfMissing True (dropFileName path)
-      >> encodeFile path obj
+      >> JSON.encodeFile path obj
 
 
 testRun :: IO ()
diff --git a/readme.md b/readme.md
index 94685b8..7bfcbc0 100644
--- a/readme.md
+++ b/readme.md
@@ -17,4 +17,4 @@ License
 
 Copyright (C) 2019 Pacien TRAN-GIRARD and Guillaume FOUET.
 
-_ldgallery_ id distributed under the terms of the GNU Affero General Public License v3.0, as detailed in `license.md`.
+_ldgallery_ is distributed under the terms of the GNU Affero General Public License v3.0, as detailed in `license.md`.
-- 
cgit v1.2.3