aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Main.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index 47b6b18..cdc7c4b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -100,8 +100,10 @@ processScanSessDir st dir = withCurrentDirectory dir $ do
defaultTimeLocale
(iso8601DateFormat Nothing)
(posixSecondsToUTCTime posix)
- in unlines [ "InfoKey: Title"
+ in unlines [ "InfoBegin"
+ , "InfoKey: Title"
, "InfoValue: scan of " ++ date
+ , "InfoBegin"
, "InfoKey: Author"
, "InfoValue: spw"
]