diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-02-07 16:54:38 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-05-23 15:26:52 +0200 |
| commit | 928f606b80f6409aae41080e41c1daf075759d0a (patch) | |
| tree | 3674592d651fa07b618ecf54077fe63a795c7f21 | |
| parent | db6085b84139f4454cebf34f887cb5560a4fbc7b (diff) | |
| download | haskell-928f606b80f6409aae41080e41c1daf075759d0a.tar.gz | |
Typo in comments
| -rw-r--r-- | compiler/basicTypes/PatSyn.hs | 2 | ||||
| -rw-r--r-- | compiler/cmm/CLabel.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/basicTypes/PatSyn.hs b/compiler/basicTypes/PatSyn.hs index 35ba8e9ae4..2e838d6b82 100644 --- a/compiler/basicTypes/PatSyn.hs +++ b/compiler/basicTypes/PatSyn.hs @@ -162,7 +162,7 @@ type (T [a] Bool). For example, this is ill-typed f :: T p q -> String f (P x) = "urk" -This is differnet to the situation with GADTs: +This is different to the situation with GADTs: data S a where MkS :: Int -> S Bool diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 38efd12cf5..3dfd7a7d1d 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -1187,7 +1187,7 @@ pprCLbl (SRTLabel u) pprCLbl (LargeBitmapLabel u) = text "b" <> pprUniqueAlways u <> pp_cSEP <> text "btm" -- Some bitsmaps for tuple constructors have a numeric tag (e.g. '7') -- until that gets resolved we'll just force them to start --- with a letter so the label will be legal assmbly code. +-- with a letter so the label will be legal assembly code. pprCLbl (CmmLabel _ str CmmCode) = ftext str |