Permalink
Browse files

Update for the interface change.

  • Loading branch information...
1 parent dd60b61 commit 4cba1d9639b33e246b73d069c40fda1f2fffad31 @Laar committed Mar 30, 2013
Showing with 6 additions and 6 deletions.
  1. +1 −1 OpenGLRawgenBase
  2. BIN referenceoutput.tar.gz
  3. +5 −5 src/Interface/Module.hs
View
Binary file not shown.
View
@@ -64,12 +64,12 @@ moduleToInterface rm =
-- | Adds a `ModulePart` to the interface of a module.
addModulePart :: ModulePart -> ModuleI -> ModuleI
addModulePart p m = case p of
- DefineEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
- ReDefineLEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
- ReDefineIEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
- ReExport (n,m') _ -> addReExport $ SingleExport m' (unName n)
+ DefineEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
+ ReDefineLEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
+ ReDefineIEnum n gln t _ -> addEnum $ EnumI gln (unName n) t
+ ReExport (_,m') gln -> addReExport $ SingleExport m' gln
DefineFunc n rt ats gln _ -> addFunc $ FuncI gln (unName n) rt ats
- ReExportModule m' -> addReExport $ ModuleExport m'
+ ReExportModule m' -> addReExport $ ModuleExport m'
where
addEnum e = m{modEnums = S.insert e $ modEnums m}
addFunc f = m{modFuncs = S.insert f $ modFuncs m}

0 comments on commit 4cba1d9

Please sign in to comment.