@@ -105,7 +105,7 @@ keyToRST :: ([Inline], (String, String))
105105 -> State WriterState Doc
106106keyToRST (label, (src, _)) = do
107107 label' <- inlineListToRST label
108− let label'' = if ':' `elem` (render Nothing label')
108+ let label'' = if ':' `elem` ((render Nothing label') :: String)
109109 then char '`' <> label' <> char '`'
110110 else label'
111111 return $ nowrap $ ".. _" <> label'' <> ": " <> text src
@@ -333,12 +333,12 @@ inlineListToRST lst =
333333 okAfterComplex :: Inline -> Bool
334334 okAfterComplex Space = True
335335 okAfterComplex LineBreak = True
336− okAfterComplex (Str (c:_)) = isSpace c || c `elem` "-.,:;!?\\/'\")]}>–—"
336+ okAfterComplex (Str (c:_)) = isSpace c || c `elem` ("-.,:;!?\\/'\")]}>–—" :: String)
337337 okAfterComplex _ = False
338338 okBeforeComplex :: Inline -> Bool
339339 okBeforeComplex Space = True
340340 okBeforeComplex LineBreak = True
341− okBeforeComplex (Str (c:_)) = isSpace c || c `elem` "-:/'\"<([{–—"
341+ okBeforeComplex (Str (c:_)) = isSpace c || c `elem` ("-:/'\"<([{–—" :: String)
342342 okBeforeComplex _ = False
343343 isComplex :: Inline -> Bool
344344 isComplex (Emph _) = True