diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-27 14:45:24 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-27 14:45:24 +0000 |
| commit | 1fede4bc9501744bf2269ce2a4cb9fb735969caa (patch) | |
| tree | f21e2178bcc90c3e1d50c2b0e93a68b7bfd369d4 /compiler/rename | |
| parent | dd849158c84941f5e3714dd4df24e467854f0d91 (diff) | |
| download | haskell-1fede4bc9501744bf2269ce2a4cb9fb735969caa.tar.gz | |
Remove old 'foreign import dotnet' code
It still lives in darcs, if anyone wants to revive it sometime.
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnSource.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 9f8ea7dbbe..86873b0223 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -634,9 +634,9 @@ However, we can also do some scoping checks at the same time. \begin{code} rnTyClDecl :: TyClDecl RdrName -> RnM (TyClDecl Name, FreeVars) -rnTyClDecl (ForeignType {tcdLName = name, tcdFoType = fo_type, tcdExtName = ext_name}) +rnTyClDecl (ForeignType {tcdLName = name, tcdExtName = ext_name}) = lookupLocatedTopBndrRn name `thenM` \ name' -> - return (ForeignType {tcdLName = name', tcdFoType = fo_type, tcdExtName = ext_name}, + return (ForeignType {tcdLName = name', tcdExtName = ext_name}, emptyFVs) -- all flavours of type family declarations ("type family", "newtype fanily", |