@@ -54,8 +54,8 @@ import qualified Text.Parsec.Token as P
55data Config = Config
55data Config = Config
56 { specifiedEscPeriod :: Maybe Int
56 { specifiedEscPeriod :: Maybe Int
57− -- | Debug information about the input process is appended to the file.
57+ -- | Debug information is appended to the file.
58− , debugInputLog :: Maybe FilePath
58+ , debugLog :: Maybe FilePath
59 , inputOverrides :: ClassifyTable
59 , inputOverrides :: ClassifyTable
60 } deriving (Show, Eq)
60 } deriving (Show, Eq)
@@ -66,7 +66,7 @@ singleEscPeriod = maybe 100000 id . specifiedEscPeriod
66instance Default Config where
66instance Default Config where
67 def = Config
67 def = Config
68 { specifiedEscPeriod = Nothing
68 { specifiedEscPeriod = Nothing
69− , debugInputLog = Nothing
69+ , debugLog = Nothing
70 , inputOverrides = []
70 , inputOverrides = []
@@ -76,7 +76,7 @@ instance Monoid Config where
76 -- latter config takes priority in specifiedEscPeriod
76 -- latter config takes priority in specifiedEscPeriod
77 { specifiedEscPeriod = specifiedEscPeriod c1 <|> specifiedEscPeriod c0
77 { specifiedEscPeriod = specifiedEscPeriod c1 <|> specifiedEscPeriod c0
78 -- latter config takes priority in debugInputLog
78 -- latter config takes priority in debugInputLog
79− , debugInputLog = debugInputLog c1 <|> debugInputLog c0
79+ , debugLog = debugLog c1 <|> debugLog c0
80 , inputOverrides = inputOverrides c0 <> inputOverrides c1
80 , inputOverrides = inputOverrides c0 <> inputOverrides c1