blob: f6eda256e49d8ba867ce975128380e3253335f4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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]
|
