From 4e76a6230063dc7578e1d3c780b6a464efb846aa Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 22 Sep 2016 15:05:01 -0400
Subject: change json serialization for backup log once again

Adding field accessors makes the json nicer.
---
 BackupLog.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'BackupLog.hs')

diff --git a/BackupLog.hs b/BackupLog.hs
index 70ec699..5ea7ba9 100644
--- a/BackupLog.hs
+++ b/BackupLog.hs
@@ -20,7 +20,10 @@ import System.Directory
 import System.Posix.Files
 import qualified Data.ByteString.Lazy as B
 
-data BackupLog = BackupLog POSIXTime BackupEvent
+data BackupLog = BackupLog 
+	{ logDate :: POSIXTime
+	, logEvent :: BackupEvent
+	}
 	deriving (Show, Generic)
 
 instance ToJSON BackupLog
-- 
cgit v1.2.3