module Diddo.Entry
( DiddoEntry(DiddoEntry, start, finish, delta, entry)
) where

import HMSTime( HMSTime )
import Data.List( intercalate )

data DiddoEntry = DiddoEntry 
                    { start :: String
                    , finish :: String
                    , delta :: HMSTime
                    , entry :: String
                    }

instance Show DiddoEntry where
  show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]