X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=Diddo%2FEntry.hs;h=be9d13cb266ad539ee7743d171a78d15ee60cc9c;hb=95d1857e437aa09e1161be075c654c50afd91dd8;hp=f6eda256e49d8ba867ce975128380e3253335f4d;hpb=fb819c7f223632dd5baadebbfb6ad6732458390d;p=user%2Fhenk%2Fcode%2Fhaskell%2Fdiddohs.git

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]