Let annotator work in batch mode

src/Annotator.hs

@@ -50,6 +50,7 @@ data Options = Options
   , verbosity :: Verbosity
   , showVersion :: Maybe ShowVersion
   , showHelp :: Bool
+  , batchMode :: Bool
   , contextLines :: Int
   , onlyNewest :: Bool
   , annotationFiles :: [FilePath]
@@ -64,6 +65,7 @@ defaultOptions = Options
   , verbosity = Silent
   , showVersion = Nothing
   , showHelp = False
+  , batchMode = False
   , contextLines = 0
   , onlyNewest = True
   , annotationFiles = []
@@ -88,6 +90,9 @@ options =
   , Option ['h'] ["help"]
     (NoArg (\opts -> opts { showHelp = True }))
     "show usage information"
+  , Option ['b'] ["batch"]
+    (NoArg (\opts -> opts { batchMode = True }))
+    "run in batch mode, i.e. do not ask any questions"
   , Option ['a'] ["all"]
     (NoArg (\opts -> opts { onlyNewest = False}))
     "handle all defects not just Newest"
@@ -152,7 +157,7 @@ defaultMain = do
     putStr $ usageInfo header options
     exitWith ExitSuccess
 
-  automaticAnnotations <- rights . concat <$> mapM fromFile (annotationFiles opts)
+  automaticAnnotations <- rights . concat <$> (filterM fileExist (annotationFiles opts) >>= mapM fromFile)
 
   let opts' = opts { autoAnnotations = automaticAnnotations }
 
@@ -384,8 +389,9 @@ handleViolation content v@Violation{..} = do
                                                                     , description
                                                                     ])
                         putStrLn (code))
-
+      if batchMode opts
-
+        then pure $ Nothing
+        else do
           choice <- getUserChoice v
           case choice of
             Abort -> liftIO $ exitSuccess