@@ -50,7 +50,7 @@ import Data.List (stripPrefix, intercalate)
5050import Data.List.Split (splitOn)
5151import qualified Data.Map as M
5252import qualified Data.Set as Set
53−import Data.Maybe (fromMaybe, isJust, isNothing)
53+import Data.Maybe (fromMaybe, isNothing)
5454import Data.Text (Text, unpack)
5555import System.FilePath (takeExtension)
5656import Text.HTML.TagSoup
@@ -515,7 +515,7 @@ amuseNoteBlockUntil end = try $ do
515515 updateState (\st -> st { museInPara = False })
516516 (content, e) <- listItemContentsUntil (sourceColumn pos - 1) (fail "x") end
517517 oldnotes <- museNotes <$> getState
518− when (isJust (M.lookup ref oldnotes))
518+ when (M.member ref oldnotes)
519519 (logMessage $ DuplicateNoteReference ref pos)
520520 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
521521 return (mempty, e)
@@ -529,7 +529,7 @@ emacsNoteBlock = try $ do
529529 ref <- noteMarker <* skipSpaces
530530 content <- mconcat <$> blocksTillNote
531531 oldnotes <- museNotes <$> getState
532− when (isJust (M.lookup ref oldnotes))
532+ when (M.member ref oldnotes)
533533 (logMessage $ DuplicateNoteReference ref pos)
534534 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
535535 return mempty