2 ( DiddoEntry(DiddoEntry, start, finish, delta, entry)
5 import HMSTime( HMSTime )
6 import Data.List( intercalate )
8 data DiddoEntry = DiddoEntry
15 instance Show DiddoEntry where
16 show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]