From bc4978e8060e106958498d78cb96b5103bf6f6ff Mon Sep 17 00:00:00 2001
From: pacien
Date: Thu, 13 Feb 2020 21:51:18 +0100
Subject: compiler: remove timestamp field from generated viewer config

As this field isn't used by the viewer anymore.

GitHub: closes #124
---
 compiler/app/Main.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'compiler/app/Main.hs')

diff --git a/compiler/app/Main.hs b/compiler/app/Main.hs
index 594a5b7..753f281 100644
--- a/compiler/app/Main.hs
+++ b/compiler/app/Main.hs
@@ -22,9 +22,7 @@ import GHC.Generics (Generic)
 import Paths_ldgallery_compiler (version, getDataFileName)
 import Control.Monad (when)
 import Data.Version (showVersion)
-import Data.Int (Int64)
 import Data.Aeson (ToJSON)
-import Data.Time.Clock.System (getSystemTime, systemSeconds)
 import System.FilePath ((</>))
 import System.Directory (canonicalizePath)
 import System.Console.CmdArgs
@@ -35,7 +33,6 @@ import Files (readDirectory, copyTo)
 
 data ViewerConfig = ViewerConfig
   { galleryRoot :: String
-  , generationTimestamp :: Int64
   } deriving (Generic, Show, ToJSON)
 
 
@@ -126,7 +123,4 @@ main =
       >>= copyTo target
 
     writeViewerConfig :: FilePath -> IO ()
-    writeViewerConfig fileName =
-      getSystemTime
-      >>= return . ViewerConfig gallerySubdir . systemSeconds
-      >>= writeJSON fileName
+    writeViewerConfig fileName = writeJSON fileName $ ViewerConfig gallerySubdir
-- 
cgit v1.2.3