diff options
Diffstat (limited to 'testsuite/tests/ffi/should_compile/ffi-deriv1.hs')
| -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 ()
|