diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-22 15:05:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-22 15:05:01 -0400 |
| commit | 4e76a6230063dc7578e1d3c780b6a464efb846aa (patch) | |
| tree | 9bf3241bac2f08cd74871cc0349e676228012b0d /BackupLog.hs | |
| parent | 07f853878999bbaa1331da4eac3f558644600bd6 (diff) | |
| download | keysafe-4e76a6230063dc7578e1d3c780b6a464efb846aa.tar.gz | |
change json serialization for backup log once again
Adding field accessors makes the json nicer.
Diffstat (limited to 'BackupLog.hs')
| -rw-r--r-- | BackupLog.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |