@@ -91,8 +91,9 @@ optToOutputSettings opts = do
91 return (formatFromFilePaths "html" [outputFile], Nothing)
91 return (formatFromFilePaths "html" [outputFile], Nothing)
92 Just f -> return (f, Nothing)
92 Just f -> return (f, Nothing)
94+ let format = if ".lua" `isSuffixOf` writerName
94− let format = map toLower $ baseWriterName
96+ else map toLower $ baseWriterName writerName
95− $ takeFileName writerName -- in case path to lua script
97 (writer, writerExts) <-
98 (writer, writerExts) <-
98 if ".lua" `isSuffixOf` format
99 if ".lua" `isSuffixOf` format