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