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]