Fix JSON dump field names (fixes #45) master
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 29 Nov 2017 01:05:46 +0000 (01:05 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 29 Nov 2017 01:05:46 +0000 (01:05 +0000)
src/DumpFormat.hs

index df32c0d..fc69c01 100644 (file)
@@ -37,7 +37,7 @@ instance ToJSON (TimeLogEntry CaptureData) where
         "date" .= tlTime,
         "rate" .= tlRate,
         "inactive" .= cLastActivity tlData,
-        "windows" .= map (\(a,p,t) -> object ["active" .= a, "program" .= p, "title" .= t]) (cWindows tlData),
+        "windows" .= map (\(a,t,p) -> object ["active" .= a, "title" .= t, "program" .= p]) (cWindows tlData),
         "desktop" .= cDesktop tlData
         ]