diff options
| author | Geoffrey Mainland <mainland@cs.drexel.edu> | 2014-10-02 17:39:34 -0400 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@cs.drexel.edu> | 2014-10-21 14:44:17 -0400 |
| commit | 27f7552745fa320e72096b30b08558b7a275bbcc (patch) | |
| tree | 9b0312d6d9d98e67bcefe902c8424db0611c1abe /testsuite/tests/codeGen | |
| parent | 710bc8d77be454243ae8de2a1fb9070b72b525c4 (diff) | |
| download | haskell-27f7552745fa320e72096b30b08558b7a275bbcc.tar.gz | |
Make Applicative-Monad fixes for tests.
Diffstat (limited to 'testsuite/tests/codeGen')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/CopySmallArrayStressTest.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_run/cgrun068.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/codeGen/should_run/CopySmallArrayStressTest.hs b/testsuite/tests/codeGen/should_run/CopySmallArrayStressTest.hs index 7243fadb06..05a84df210 100644 --- a/testsuite/tests/codeGen/should_run/CopySmallArrayStressTest.hs +++ b/testsuite/tests/codeGen/should_run/CopySmallArrayStressTest.hs @@ -361,7 +361,7 @@ cloneMArraySlow !marr !off n = -- Utilities for simplifying RNG passing newtype Rng s a = Rng { unRng :: StateT StdGen (ST s) a } - deriving Monad + deriving (Functor, Applicative, Monad) -- Same as 'randomR', but using the RNG state kept in the 'Rng' monad. rnd :: Random a => (a, a) -> Rng s a diff --git a/testsuite/tests/codeGen/should_run/cgrun068.hs b/testsuite/tests/codeGen/should_run/cgrun068.hs index 69a8b279f8..00d1249eaa 100644 --- a/testsuite/tests/codeGen/should_run/cgrun068.hs +++ b/testsuite/tests/codeGen/should_run/cgrun068.hs @@ -361,7 +361,7 @@ cloneMArraySlow !marr !off n = -- Utilities for simplifying RNG passing newtype Rng s a = Rng { unRng :: StateT StdGen (ST s) a } - deriving Monad + deriving (Functor, Applicative, Monad) -- Same as 'randomR', but using the RNG state kept in the 'Rng' monad. rnd :: Random a => (a, a) -> Rng s a |