hasufell
/
cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PARSER: fix haddock comment

This commit is contained in:
hasufell 2014-11-21 04:36:07 +01:00
parent 2be25ae27c
commit 99e6ce929f
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Parser/PathParser.hs
View File

@ -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"))