@@ -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, isNothing)
53+import Data.Maybe (fromMaybe, isJust, isNothing)
5454import Data.Text (Text, unpack)
5555import System.FilePath (takeExtension)
5656import Text.HTML.TagSoup
@@ -474,9 +474,8 @@ amuseNoteBlockUntil end = try $ do
474474 updateState (\st -> st { museInPara = False })
475475 (content, e) <- listItemContentsUntil (sourceColumn pos - 1) (fail "x") end
476476 oldnotes <- museNotes <$> getState
477− case M.lookup ref oldnotes of
478− Just _ -> logMessage $ DuplicateNoteReference ref pos
479− Nothing -> return ()
477+ when (isJust (M.lookup ref oldnotes))
478+ (logMessage $ DuplicateNoteReference ref pos)
480479 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
481480 return (mempty, e)
482481
@@ -489,9 +488,8 @@ emacsNoteBlock = try $ do
489488 ref <- noteMarker <* skipSpaces
490489 content <- mconcat <$> blocksTillNote
491490 oldnotes <- museNotes <$> getState
492− case M.lookup ref oldnotes of
493− Just _ -> logMessage $ DuplicateNoteReference ref pos
494− Nothing -> return ()
491+ when (isJust (M.lookup ref oldnotes))
492+ (logMessage $ DuplicateNoteReference ref pos)
495493 updateState $ \s -> s{ museNotes = M.insert ref (pos, content) oldnotes }
496494 return mempty
497495 where