@@ -142,7 +142,7 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
142142 let oldlevel = stOLLevel st
143143 put $ st {stOLLevel = oldlevel + 1}
144144 items <- mapM listItemToLaTeX lst
145− put $ st {stOLLevel = oldlevel}
145+ modify (\st -> st {stOLLevel = oldlevel})
146146 exemplar <- if numstyle /= DefaultStyle || numdelim /= DefaultDelim
147147 then do addToHeader "\\usepackage{enumerate}"
148148 return $ "[" ++ head (orderedListMarkers (1, numstyle, numdelim)) ++ "]"
@@ -262,11 +262,12 @@ inlineToLaTeX (TeX str) = return str
262262inlineToLaTeX (HtmlInline str) = return ""
263263inlineToLaTeX (LineBreak) = return "\\\\\n"
264264inlineToLaTeX Space = return " "
265−inlineToLaTeX (Link text (src, tit)) = do
265+inlineToLaTeX (Link text (src, _)) = do
266266 addToHeader "\\usepackage[breaklinks=true]{hyperref}"
267267 case text of
268268 [Code x] | x == src -> -- autolink
269− return $ "\\url{" ++ x ++ "}"
269+ do addToHeader "\\usepackage{url}"
270+ return $ "\\url{" ++ x ++ "}"
270271 _ -> do contents <- inlineListToLaTeX $ deVerb text
271272 return $ "\\href{" ++ src ++ "}{" ++ contents ++ "}"
272273inlineToLaTeX (Image alternate (source, tit)) = do
@@ -276,8 +277,7 @@ inlineToLaTeX (Note contents) = do
276277 st <- get
277278 put (st {stInNote = True})
278279 contents' <- blockListToLaTeX contents
279− st <- get
280− put (st {stInNote = False})
280+ modify (\st -> st {stInNote = False})
281281 return $ "\\footnote{" ++ stripTrailingNewlines contents' ++ "\n}"
282282 -- note: the \n before } is important; removing it causes problems
283283 -- if a Verbatim environment occurs at the end of the footnote.