hlint Muse writer

This commit is contained in:
Alexander Krotov 2019-10-04 18:29:00 +03:00
parent 6a9cafc67a
commit 6898445548

View file

@ -621,7 +621,7 @@ inlineToMuse (Quoted DoubleQuote lst) = do
return $ "" <> contents <> ""
inlineToMuse Cite {} =
throwError $ PandocShouldNeverHappenError
$ "Citations should be expanded before normalization"
"Citations should be expanded before normalization"
inlineToMuse (Code _ str) = do
useTags <- gets stUseTags
modify $ \st -> st { stUseTags = False }