From 9d5ffde598800391a064239809b14e7a76cb2f46 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Wed, 18 Aug 2021 17:02:19 +0200
Subject: [PATCH] Remove useless and commented-out code
---
app/Main.hs | 1 -
lib/Text/TEIWA/Source/Common.hs | 1 -
2 files changed, 2 deletions(-)
diff --git a/app/Main.hs b/app/Main.hs
index 6b1158d..6e78398 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 ea0a253..122da7e 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
--
GitLab