diff options
Diffstat (limited to 'Diddo')
| -rw-r--r-- | Diddo/Entry.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Diddo/Entry.hs b/Diddo/Entry.hs new file mode 100644 index 0000000..f6eda25 --- /dev/null +++ b/Diddo/Entry.hs @@ -0,0 +1,17 @@ +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] + |