Diddo/Entry.hs

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