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 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'compiler/src')

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 ()
-- 
cgit v1.2.3