diff --git a/app/Main.hs b/app/Main.hs
index 6b1158d16a6810b5b97e3c63734898dac21b694a..6e7839869153b4ab3a2f254b0d35215b06b5388e 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -24,4 +24,3 @@ main = do
   command <- getCommand
   input <- Text.getContents
   runExceptT (annotator command input) >>= either (die . show) Text.putStr
-  where
diff --git a/lib/Text/TEIWA/Source/Common.hs b/lib/Text/TEIWA/Source/Common.hs
index ea0a253deec29af9622fabe844353c6a7e325154..122da7e96b039e1447386aa5ecf0928d922f62ab 100644
--- a/lib/Text/TEIWA/Source/Common.hs
+++ b/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