From 84282f6317c0c1249c009469f75916acc69c1571 Mon Sep 17 00:00:00 2001
From: Hendrik Jaeger <henk@frustcomp>
Date: Sun, 2 Feb 2014 23:14:41 +0100
Subject: On branch master       modified:   Diddo/Entry.hs       modified:  
 HMSTime.hs       modified:   diddohs.hs         * CHANGED: mainly cleanup and
 some experimentation

---
 Diddo/Entry.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'Diddo/Entry.hs')

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]
-- 
cgit v1.2.3