Diddo/Entry.hs

   1 module Diddo.Entry
   2 ( DiddoEntry(DiddoEntry, start, finish, delta, entry)
   3 ) where
   4
   5 import HMSTime( HMSTime )
   6 import Data.List( intercalate )
   7
   8 data DiddoEntry = DiddoEntry
   9                     { start :: String
  10                     , finish :: String
  11                     , delta :: HMSTime
  12                     , entry :: String
  13                     }
  14
  15 instance Show DiddoEntry where
  16   show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]
  17