diff options
| author | Brian Wignall <brianwignall@gmail.com> | 2019-11-26 08:26:41 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-28 02:54:52 -0500 |
| commit | 3748ba3a01f81078025b86023833784055d1af57 (patch) | |
| tree | f5df08b667ac13c9dc28160aee08fec1a216a0bd /testsuite/tests/deSugar/should_compile | |
| parent | 5f84b52a9c439ae2739bf1899a2adbae9c6d4f67 (diff) | |
| download | haskell-3748ba3a01f81078025b86023833784055d1af57.tar.gz | |
Fix typos, using Wikipedia list of common typos
Diffstat (limited to 'testsuite/tests/deSugar/should_compile')
| -rw-r--r-- | testsuite/tests/deSugar/should_compile/T12944.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/deSugar/should_compile/T12944.hs b/testsuite/tests/deSugar/should_compile/T12944.hs index 076812d6e7..540ea06e81 100644 --- a/testsuite/tests/deSugar/should_compile/T12944.hs +++ b/testsuite/tests/deSugar/should_compile/T12944.hs @@ -31,7 +31,7 @@ instance (AdditiveGroup (poly a), Num a) => AdditiveGroup (IntOfLog poly a) wher IntOfLog k p ^+^ IntOfLog k' p' = IntOfLog (k + k') (p ^+^ p') negateV (IntOfLog k p) = IntOfLog (negate k) (negateV p) {-# SPECIALISE instance Num a => AdditiveGroup (IntOfLog Poly1 a) #-} - -- This pragmas casued the crash + -- This pragmas caused the crash instance (VectorSpace (poly a), Scalar (poly a) ~ a, Num a) => VectorSpace (IntOfLog poly a) where type Scalar (IntOfLog poly a) = a |