Diddo/Entry.hs


1
2
3
4
5
6
7
8
9
10
11
12

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]