diff options
Diffstat (limited to 'compiler/deSugar/DsForeign.lhs')
| -rw-r--r-- | compiler/deSugar/DsForeign.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs index 6d73d1d2bb..d425214f97 100644 --- a/compiler/deSugar/DsForeign.lhs +++ b/compiler/deSugar/DsForeign.lhs @@ -135,8 +135,8 @@ dsCImport :: Id -> DsM ([Binding], SDoc, SDoc) dsCImport id (CLabel cid) cconv _ = do let ty = idType id - fod = case splitTyConApp_maybe (repType ty) of - Just (tycon, _) + fod = case tyConAppTyCon_maybe (repType ty) of + Just tycon | tyConUnique tycon == funPtrTyConKey -> IsFunction _ -> IsData |