@@ -202,15 +202,16 @@ doOpt (k',v) = do
202202 "input-files" ->
203203 parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
204204 optInputFiles o <>
205− Just (map unpack x) })
205+ (map unpack <$> x) })
206206 "input-file" -> -- allow either a list or a single value
207207 (parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
208208 optInputFiles o <>
209− Just (map unpack x) }))
209+ (map unpack <$> x) }))
210210 <|>
211211 (parseYAML v >>= \x -> return (\o -> o{ optInputFiles =
212212 optInputFiles o <>
213− Just [unpack x] }))
213+ ((\z -> [unpack z]) <$> x)
214+ }))
214215 "number-sections" ->
215216 parseYAML v >>= \x -> return (\o -> o{ optNumberSections = x })
216217 "number-offset" ->