Remove useless and commented-out code

app/Main.hs

@@ -24,4 +24,3 @@ main = do
   command <- getCommand
   input <- Text.getContents
   runExceptT (annotator command input) >>= either (die . show) Text.putStr
-  where

lib/Text/TEIWA/Source/Common.hs

@@ -47,7 +47,6 @@ recordLine p = (,) <$> currentLine <*> p
 annotationContext :: Header -> TEIWAParser AnnotationContext
 annotationContext defaultFields = do
   Config {formColumn, headerOverride} <- ask
-  --headerFields <- maybe defaultFields pure headerOverride
   let headerFields = maybe defaultFields id headerOverride
   column <- catchNothing ((Right <$> formColumn) <|> findForm headerFields)
   buildContext column headerFields