diff options
| author | Gabor Greif <ggreif@gmail.com> | 2015-04-30 11:47:08 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2015-04-30 11:47:08 +0200 |
| commit | a3f7517e1d21228d0af4d0373a29c8c5b708e5bd (patch) | |
| tree | 8774f4339fb1fe1926cb7efda28f96a0a02fe1d9 /testsuite/tests/programs | |
| parent | b83160d07e626bee685f329a9a73e90a4a6074ae (diff) | |
| download | haskell-a3f7517e1d21228d0af4d0373a29c8c5b708e5bd.tar.gz | |
Typo fixes (mostly in comments)
Diffstat (limited to 'testsuite/tests/programs')
| -rw-r--r-- | testsuite/tests/programs/andy_cherry/DataTypes.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/programs/andy_cherry/DataTypes.hs b/testsuite/tests/programs/andy_cherry/DataTypes.hs index 9f7c5571ba..b36de838b4 100644 --- a/testsuite/tests/programs/andy_cherry/DataTypes.hs +++ b/testsuite/tests/programs/andy_cherry/DataTypes.hs @@ -218,9 +218,9 @@ xs | all isDigit xs && not (null xs) -> Just (read xs) _ -> Nothing result = mkResult (getTagStr "Result" "*" tags) - white = cannon (getTagStr "White" "?" tags) + white = canon (getTagStr "White" "?" tags) whiteElo = getTagStr "WhiteElo" "" tags - black = cannon (getTagStr "Black" "?" tags) + black = canon (getTagStr "Black" "?" tags) blackElo = getTagStr "BlackElo" "" tags opening = getOpening (getTagStr "ECO" "" tags) @@ -240,7 +240,7 @@ getMonth "11" = "Nov" getMonth "12" = "Dec" - cannon name = case span (/= ',') name of + canon name = case span (/= ',') name of (a,[',',' ',b]) -> b : ". " ++ a (a,[',',b]) -> b : ". " ++ a (a,',':' ':b) -> b ++ " " ++ a |