Remove type synonym part of Capi_Ctype_001
authorIan Lynagh <igloo@earth.li>
Wed, 22 Feb 2012 01:45:12 +0000 (01:45 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 22 Feb 2012 01:45:12 +0000 (01:45 +0000)
We no longer support CTYPE pragmas on type synonyms

testsuite/tests/ffi/should_run/Capi_Ctype_001.hsc
testsuite/tests/ffi/should_run/Capi_Ctype_001.stdout
testsuite/tests/ffi/should_run/Capi_Ctype_A_001.hsc

index 71e48f1..5dd24c3 100644 (file)
@@ -19,10 +19,6 @@ main = do alloca $ \p ->
               do poke p (Foo 15 16 17)
                  r2 <- g p
                  print r2
-          alloca $ \p ->
-              do poke p (FooA 25 26 27)
-                 r3 <- h p
-                 print r3
 
 data {-# CTYPE "Foo" #-}
      Foo = Foo {
@@ -31,17 +27,12 @@ data {-# CTYPE "Foo" #-}
                k :: CInt
            }
 
-type FooASynSyn = FooASyn
-
 foreign import capi unsafe "capi_ctype_001.h f"
     f :: Ptr Foo -> IO CInt
 
 foreign import capi unsafe "capi_ctype_001.h g"
     g :: Ptr Foo -> IO CInt
 
-foreign import capi unsafe "capi_ctype_001.h g"
-    h :: Ptr FooASynSyn -> IO CInt
-
 instance Storable Foo where
     sizeOf _ = #size Foo
     alignment = sizeOf
index 103b264..8b68942 100644 (file)
@@ -14,8 +14,6 @@ data FooA = FooA {
                 ka :: CInt
             }
 
-type {-# CTYPE "Foo" #-} FooASyn = FooA
-
 instance Storable FooA where
     sizeOf _ = #size Foo
     alignment = sizeOf