Stop adding document author metadata

1 files changed, 0 insertions, 3 deletions

diff --git a/Main.hs b/Main.hs
index 412b237..5a5bb3f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -117,9 +117,6 @@ processScanSessDir st dir = withCurrentDirectory dir $ do
                        in unlines [ "InfoBegin"
                                   , "InfoKey: Title"
                                   , "InfoValue: scan of " ++ date
-                                  , "InfoBegin"
-                                  , "InfoKey: Author"
-                                  , "InfoValue: spw"
                                   ]
 
 makeInitialState :: IO St