diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-15 14:55:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-16 13:01:02 +0000 |
| commit | 546dd4f219ba05880e252e7fee6a2037a50ed3b3 (patch) | |
| tree | 594d3a0bc49683608d9614a83a9eb1eead9e33f5 /compiler/vectorise/Vectorise/Generic/PData.hs | |
| parent | c56c0c90dfedd6acf6e146dd44a77f75a613a99b (diff) | |
| download | haskell-546dd4f219ba05880e252e7fee6a2037a50ed3b3.tar.gz | |
Implement the CTYPE pragma; part of the CApiFFI extension
For now, the syntax is
type {-# CTYPE "some C type" #-} Foo = ...
newtype {-# CTYPE "some C type" #-} Foo = ...
data {-# CTYPE "some C type" #-} Foo = ...
Diffstat (limited to 'compiler/vectorise/Vectorise/Generic/PData.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Generic/PData.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/vectorise/Vectorise/Generic/PData.hs b/compiler/vectorise/Vectorise/Generic/PData.hs index 1026e95029..f860a4a900 100644 --- a/compiler/vectorise/Vectorise/Generic/PData.hs +++ b/compiler/vectorise/Vectorise/Generic/PData.hs @@ -47,6 +47,7 @@ buildDataFamInst name' fam_tc vect_tc rhs pat_tys = [mkTyConApp vect_tc (mkTyVarTys tyvars)] rep_tc = buildAlgTyCon name' tyvars + Nothing [] -- no stupid theta rhs rec_flag -- FIXME: is this ok? |