hlint Muse

src/Text/Pandoc/Readers/Muse.hs

@@ -803,7 +803,7 @@ footnote = try $ do
   return $ do
     notes <- asksF museNotes
     case M.lookup ref notes of
-      Nothing -> return $ B.str $ ref
+      Nothing -> return $ B.str ref
       Just (_pos, contents) -> do
         st <- askF
         let contents' = runF contents st { museNotes = M.delete ref (museNotes st) }

src/Text/Pandoc/Writers/Muse.hs

@@ -504,9 +504,9 @@ stringStartsWithSpace ""    = False
 fixOrEscape :: Bool -> Inline -> Bool
 fixOrEscape sp (Str "-") = sp
 fixOrEscape sp (Str s@('-':x:_)) = (sp && isSpace x) || isHorizontalRule s
-fixOrEscape sp (Str (";")) = not sp
+fixOrEscape sp (Str ";") = not sp
 fixOrEscape sp (Str (';':x:_)) = not sp && isSpace x
-fixOrEscape _ (Str (">")) = True
+fixOrEscape _ (Str ">") = True
 fixOrEscape _ (Str ('>':x:_)) = isSpace x
 fixOrEscape sp (Str s) = (sp && (startsWithMarker isDigit s ||
                                 startsWithMarker isAsciiLower s ||