On branch master

      modified:   Diddo/Entry.hs
      modified:   HMSTime.hs
      modified:   diddohs.hs
        * CHANGED: mainly cleanup and some experimentation

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]