@@ -50,7 +50,7 @@ import Data.List (stripPrefix, intercalate)
50import Data.List.Split (splitOn)
50import Data.List.Split (splitOn)
51import qualified Data.Map as M
51import qualified Data.Map as M
52import qualified Data.Set as Set
52import qualified Data.Set as Set
53−import Data.Maybe (fromMaybe, isJust, isNothing)
53+import Data.Maybe (fromMaybe, isNothing)
54import Data.Text (Text, unpack)
54import Data.Text (Text, unpack)
55import System.FilePath (takeExtension)
55import System.FilePath (takeExtension)
56import Text.HTML.TagSoup
56import Text.HTML.TagSoup
@@ -515,7 +515,7 @@ amuseNoteBlockUntil end = try $ do
515 updateState (\st -> st { museInPara = False })
515 updateState (\st -> st { museInPara = False })
516 (content, e) <- listItemContentsUntil (sourceColumn pos - 1) (fail "x") end
516 (content, e) <- listItemContentsUntil (sourceColumn pos - 1) (fail "x") end
517 oldnotes <- museNotes <$> getState
517 oldnotes <- museNotes <$> getState
518− when (isJust (M.lookup ref oldnotes))
518+ when (M.member ref oldnotes)
519 (logMessage $ DuplicateNoteReference ref pos)
519 (logMessage $ DuplicateNoteReference ref pos)
520 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
520 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
521 return (mempty, e)
521 return (mempty, e)
@@ -529,7 +529,7 @@ emacsNoteBlock = try $ do
529 ref <- noteMarker <* skipSpaces
529 ref <- noteMarker <* skipSpaces
530 content <- mconcat <$> blocksTillNote
530 content <- mconcat <$> blocksTillNote
531 oldnotes <- museNotes <$> getState
531 oldnotes <- museNotes <$> getState
532− when (isJust (M.lookup ref oldnotes))
532+ when (M.member ref oldnotes)
533 (logMessage $ DuplicateNoteReference ref pos)
533 (logMessage $ DuplicateNoteReference ref pos)
534 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
534 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
535 return mempty
535 return mempty