@@ -105,7 +105,7 @@ keyToRST :: ([Inline], (String, String))
105 -> State WriterState Doc
105 -> State WriterState Doc
106keyToRST (label, (src, _)) = do
106keyToRST (label, (src, _)) = do
107 label' <- inlineListToRST label
107 label' <- inlineListToRST label
108− let label'' = if ':' `elem` (render Nothing label')
108+ let label'' = if ':' `elem` ((render Nothing label') :: String)
109 then char '`' <> label' <> char '`'
109 then char '`' <> label' <> char '`'
110 else label'
110 else label'
111 return $ nowrap $ ".. _" <> label'' <> ": " <> text src
111 return $ nowrap $ ".. _" <> label'' <> ": " <> text src
@@ -333,12 +333,12 @@ inlineListToRST lst =
333 okAfterComplex :: Inline -> Bool
333 okAfterComplex :: Inline -> Bool
334 okAfterComplex Space = True
334 okAfterComplex Space = True
335 okAfterComplex LineBreak = True
335 okAfterComplex LineBreak = True
336− okAfterComplex (Str (c:_)) = isSpace c || c `elem` "-.,:;!?\\/'\")]}>–—"
336+ okAfterComplex (Str (c:_)) = isSpace c || c `elem` ("-.,:;!?\\/'\")]}>–—" :: String)
337 okAfterComplex _ = False
337 okAfterComplex _ = False
338 okBeforeComplex :: Inline -> Bool
338 okBeforeComplex :: Inline -> Bool
339 okBeforeComplex Space = True
339 okBeforeComplex Space = True
340 okBeforeComplex LineBreak = True
340 okBeforeComplex LineBreak = True
341− okBeforeComplex (Str (c:_)) = isSpace c || c `elem` "-:/'\"<([{–—"
341+ okBeforeComplex (Str (c:_)) = isSpace c || c `elem` ("-:/'\"<([{–—" :: String)
342 okBeforeComplex _ = False
342 okBeforeComplex _ = False
343 isComplex :: Inline -> Bool
343 isComplex :: Inline -> Bool
344 isComplex (Emph _) = True
344 isComplex (Emph _) = True