--- /dev/null
+module Diddo.Entry
+( DiddoEntry(DiddoEntry, start, finish, delta, entry)
+) where
+
+import HMSTime( HMSTime )
+import Data.List( intercalate )
+
+data DiddoEntry = DiddoEntry
+ { start :: String
+ , finish :: String
+ , delta :: HMSTime
+ , entry :: String
+ }
+
+instance Show DiddoEntry where
+ show (DiddoEntry start finish delta entry) = intercalate ";" [start,finish,(show delta),entry]
+