diff options
Diffstat (limited to 'Diddo')
| -rw-r--r-- | Diddo/Entry.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/Diddo/Entry.hs b/Diddo/Entry.hs index f6eda25..be9d13c 100644 --- a/Diddo/Entry.hs +++ b/Diddo/Entry.hs @@ -1,16 +1,11 @@ module Diddo.Entry -( DiddoEntry(DiddoEntry, start, finish, delta, entry) +( DiddoEntry(DiddoEntry) ) where import HMSTime( HMSTime ) import Data.List( intercalate ) -data DiddoEntry = DiddoEntry - { start :: String - , finish :: String - , delta :: HMSTime - , entry :: String - } +data DiddoEntry = DiddoEntry String String HMSTime String instance Show DiddoEntry where show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry] |