aboutsummaryrefslogtreecommitdiff
path: root/haddock-library/src/Documentation
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2014-11-08 11:32:42 +0800
committerSimon Hengel <sol@typeful.net>2014-11-08 11:32:42 +0800
commit86ee2412abacff33340559f2f4626ea44564a038 (patch)
tree627cc4fb988130e91473414cacd9270b2de6d99f /haddock-library/src/Documentation
parent0891c568f645edcac35442576757ab6fcaa7b6ec (diff)
Minor code simplification
Diffstat (limited to 'haddock-library/src/Documentation')
-rw-r--r--haddock-library/src/Documentation/Haddock/Parser.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs
index bea1803a..b3387f57 100644
--- a/haddock-library/src/Documentation/Haddock/Parser.hs
+++ b/haddock-library/src/Documentation/Haddock/Parser.hs
@@ -514,11 +514,10 @@ parseValid = p some
p p' = do
vs' <- p' $ utf8String "⋆" <|> return <$> idChar
let vs = concat vs'
- c <- peekChar
+ c <- peekChar'
case c of
- Just '`' -> return vs
- Just '\'' -> (\x -> vs ++ "'" ++ x) <$> ("'" *> p many')
- <|> return vs
+ '`' -> return vs
+ '\'' -> (\x -> vs ++ "'" ++ x) <$> ("'" *> p many') <|> return vs
_ -> fail "outofvalid"
-- | Parses UTF8 strings from ByteString streams.