@@ -54,8 +54,8 @@ import qualified Text.Parsec.Token as P
5454
5555data Config = Config
5656 { specifiedEscPeriod :: Maybe Int
57− -- | Debug information about the input process is appended to the file.
58− , debugInputLog :: Maybe FilePath
57+ -- | Debug information is appended to the file.
58+ , debugLog :: Maybe FilePath
5959 , inputOverrides :: ClassifyTable
6060 } deriving (Show, Eq)
6161
@@ -66,7 +66,7 @@ singleEscPeriod = maybe 100000 id . specifiedEscPeriod
6666instance Default Config where
6767 def = Config
6868 { specifiedEscPeriod = Nothing
69− , debugInputLog = Nothing
69+ , debugLog = Nothing
7070 , inputOverrides = []
7171 }
7272
@@ -76,7 +76,7 @@ instance Monoid Config where
7676 -- latter config takes priority in specifiedEscPeriod
7777 { specifiedEscPeriod = specifiedEscPeriod c1 <|> specifiedEscPeriod c0
7878 -- latter config takes priority in debugInputLog
79− , debugInputLog = debugInputLog c1 <|> debugInputLog c0
79+ , debugLog = debugLog c1 <|> debugLog c0
8080 , inputOverrides = inputOverrides c0 <> inputOverrides c1
8181 }
8282