@@ -65,7 +65,7 @@ moreArgs n =
66toSimpleNote :: String -> Doc
66toSimpleNote :: String -> Doc
67toSimpleNote message =
67toSimpleNote message =
68− fillSep ((underline (text "Note") <> ":") : map text (words message))
68+ fillSep ((underline "Note" <> ":") : map text (words message))
71toSimpleHint :: String -> Doc
71toSimpleHint :: String -> Doc