From 74818cabff85d368761ee1f5a5ea55f3174eafc6 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 12 Mar 2017 15:32:17 -0700
Subject: use InfoBegin in metadata file

This should avoid pdftk error output.  This output suggested the
metadata was not getting set, but it was.
---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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"
                                   ]
-- 
cgit v1.2.3