On branch master

[user/henk/code/haskell/diddohs.git] / Diddo / Entry.hs

diff --git a/Diddo/Entry.hs b/Diddo/Entry.hs
index f6eda256e49d8ba867ce975128380e3253335f4d..be9d13cb266ad539ee7743d171a78d15ee60cc9c 100644 (file)
--- 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]