From 99e6ce929fdbe31e220dfa4f82b79e29aa8d4348 Mon Sep 17 00:00:00 2001 From: hasufell Date: Fri, 21 Nov 2014 04:36:07 +0100 Subject: [PATCH] PARSER: fix haddock comment --- Parser/PathParser.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Parser/PathParser.hs b/Parser/PathParser.hs index a56922c..6725a15 100644 --- a/Parser/PathParser.hs +++ b/Parser/PathParser.hs @@ -20,8 +20,7 @@ stringToQuads str = case parseOnly parsePath (B.pack str) of <* many' space) --- |Parses a string that represents a single squad into the --- QuadOrOrient ADT. +-- |Parses a string that represents a single quad. parseQuad :: Parser (Either Quad Orient) parseQuad = const (Left NW) <$> (string (B.pack "nw") <|> string (B.pack "NW")) @@ -30,8 +29,7 @@ parseQuad = <|> const (Left SE) <$> (string (B.pack "se") <|> string (B.pack "SE")) --- |Parses a string that represents a single Orientation into the --- QuadOrOrient ADT. +-- |Parses a string that represents a single Orientation. parseOrient :: Parser (Either Quad Orient) parseOrient = const (Right North) <$> (string (B.pack "n") <|> string (B.pack "N"))