show clockin/out times in timelog entries, detect clockout < clockin

Ledger/TimeLog.hs

@@ -13,6 +13,7 @@ import Ledger.Types
 import Ledger.Dates
 import Ledger.Commodity
 import Ledger.Amount
+import Ledger.Entry
 
 instance Show TimeLogEntry where 
     show t = printf "%s %s %s" (show $ tlcode t) (show $ tldatetime t) (tlcomment t)
@@ -36,17 +37,21 @@ clockoutFor (TimeLogEntry _ t _) = TimeLogEntry 'o' t ""
 -- entry, representing the time expenditure. Note this entry is  not balanced,
 -- since we omit the \"assets:time\" transaction for simpler output.
 entryFromTimeLogInOut :: TimeLogEntry -> TimeLogEntry -> Entry
-entryFromTimeLogInOut i o =
-    Entry {
-      edate         = outdate, -- like ledger
-      estatus       = True,
-      ecode         = "",
-      edescription  = "",
-      ecomment      = "",
-      etransactions = txns,
-      epreceding_comment_lines=""
-    }
+entryFromTimeLogInOut i o
+    | outtime >= intime = e
+    | otherwise = 
+        error $ "clock-out time less than clock-in time in:\n" ++ showEntry e
     where
+      e = Entry {
+            edate         = outdate, -- like ledger
+            estatus       = True,
+            ecode         = "",
+            edescription  = showtime intime ++ " - " ++ showtime outtime,
+            ecomment      = "",
+            etransactions = txns,
+            epreceding_comment_lines=""
+          }
+      showtime = show . timeToTimeOfDay . utctDayTime
       acctname = tlcomment i
       indate   = utctDay intime
       outdate  = utctDay outtime

Ledger/Utils.hs

@@ -15,6 +15,7 @@ module Data.Ord,
 module Data.Tree,
 module Data.Time.Clock,
 module Data.Time.Calendar,
+module Data.Time.LocalTime,
 module Debug.Trace,
 module Ledger.Utils,
 module Text.Printf,
@@ -32,6 +33,7 @@ import Data.Ord
 import Data.Tree
 import Data.Time.Clock
 import Data.Time.Calendar
+import Data.Time.LocalTime
 import Debug.Trace
 import Test.HUnit
 import Text.Printf