@@ -188,7 +188,7 @@ doOpt opt (k',v) = do
189 (parseYAML v >>= \x -> return opt { optMetadataFiles = [unpack x] })
189 (parseYAML v >>= \x -> return opt { optMetadataFiles = [unpack x] })
190 "output-file" ->
190 "output-file" ->
191− parseYAML v >>= \x -> return opt { optOutputFile = Just $ unpack x }
191+ parseYAML v >>= \x -> return opt { optOutputFile = unpack <$> x }
192 "input-files" ->
192 "input-files" ->
193 parseYAML v >>= \x -> return opt { optInputFiles = map unpack x }
193 parseYAML v >>= \x -> return opt { optInputFiles = map unpack x }
194 "number-sections" ->
194 "number-sections" ->