Fix some Haddock quoting issues

System/Console/Docopt/ParseUtils.hs

@@ -76,8 +76,8 @@ manyTill1 p end = do
   rest <- manyTill p end
   return $ first : rest
 
--- |@skipUntil p@ ignores everything that comes before `p`.
--- Returns what `p` returns.
+-- |@skipUntil p@ ignores everything that comes before @p@.
+-- Returns what @p@ returns.
 skipUntil :: Show a => CharParser u a -> CharParser u ()
 skipUntil p = skipMany (notFollowedBy p >> anyChar)
 

System/Console/Docopt/Public.hs

@@ -107,7 +107,7 @@ notPresent = (not .) . isPresent
 -- > Usage:
 -- >   prog <required>
 --
---   then @getArg args (argument \'required\')@ is guaranteed to be a 'Just'.
+--   then @getArg args (argument "required")@ is guaranteed to be a 'Just'.
 getArg :: Arguments -> Option -> Maybe String
 getArg args opt =
   case opt `M.lookup` args of

System/Console/Docopt/UsageParse.hs

@@ -158,7 +158,7 @@ pUsagePatterns = do
 -- * Option Synonyms & Defaults Parsers
 
 -- | Succeeds only on the first line of an option explanation
---   (one whose first non-space character is '-')
+--   (one whose first non-space character is @\'-\'@)
 begOptionLine :: CharParser OptInfoMap String
 begOptionLine = inlineSpaces >> lookAhead (char '-') >> return "-"
 
@@ -256,8 +256,11 @@ canRepeat pat target =
 -- | Compare on specificity of parsers built from optA and optB,
 --   so we can be sure the parser tries the most-specific first, where possible.
 --   E.g.
---     LongOption "option" > ShortOption 'o' == True
---     Command "cmd" > Argument "arg"        == True
+--
+-- @
+-- LongOption "option" > ShortOption \'o\' == True
+-- Command "cmd" > Argument "arg"        == True
+-- @
 compareOptSpecificity :: Option -> Option -> Ordering
 compareOptSpecificity optA optB = case optA of
     LongOption a  -> case optB of