+++ /dev/null
-module Diddo.Entry
-( DiddoEntry(DiddoEntry)
-) where
-
-import HMSTime( HMSTime )
-import Data.List( intercalate )
-
-data DiddoEntry = DiddoEntry String String HMSTime String
-
-instance Show DiddoEntry where
- show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]
-