diff options
| author | Austin Seipp <aseipp@pobox.com> | 2013-09-08 09:02:04 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2013-09-08 09:30:10 -0500 |
| commit | 0b1bea4360d730ae4c91092bc94bc541631dbc84 (patch) | |
| tree | d87feed052483dccadd73a158ec386955be25707 /testsuite/tests/ffi | |
| parent | 8859e1e3e4e6c695a4e9a1659fc0ec935141324a (diff) | |
| download | haskell-0b1bea4360d730ae4c91092bc94bc541631dbc84.tar.gz | |
Fix most AMP warnings.
Authored-by: David Luposchainsky <dluposchainsky@gmail.com>
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'testsuite/tests/ffi')
| -rw-r--r-- | testsuite/tests/ffi/should_compile/ffi-deriv1.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/ffi/should_compile/ffi-deriv1.hs b/testsuite/tests/ffi/should_compile/ffi-deriv1.hs index 94d0df2fa4..1e5d27a0b6 100644 --- a/testsuite/tests/ffi/should_compile/ffi-deriv1.hs +++ b/testsuite/tests/ffi/should_compile/ffi-deriv1.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-- Tests newtype unwrapping for the IO monad itself
-- Notice the RenderM monad, which is used in the
@@ -6,8 +6,10 @@ module ShouldCompile where
+import Control.Applicative (Applicative)
+
import Foreign.Ptr
-newtype RenderM a = RenderM (IO a) deriving (Functor, Monad)
+newtype RenderM a = RenderM (IO a) deriving (Functor, Applicative, Monad)
type RenderCallback = Int -> Int -> RenderM ()
|