Permalink
Browse files

Adds the Core31.Types compatibility module.

  • Loading branch information...
1 parent 1cad5bc commit 02802ec4c6a5fa29057bd96d03f263be3ec067a1 @Laar committed Mar 27, 2013
Showing with 7 additions and 0 deletions.
  1. BIN referenceoutput.tar.gz
  2. +7 −0 src/Modules/Compatibility.hs
View
Binary file not shown.
@@ -31,6 +31,7 @@ addCompatibilityModules :: Builder ()
addCompatibilityModules = do
addOldCoreProfile 3 1
addOldCoreProfile 3 2
+ addOldCoreTypes
addARBCompatibility
addOldCoreProfile :: Int -> Int -> Builder ()
@@ -39,6 +40,12 @@ addOldCoreProfile ma mi =
in do cp <- askProfileModule ma mi False
addModule' modName Compatibility $ tellReExportModule cp
+addOldCoreTypes :: Builder ()
+addOldCoreTypes = do
+ let modName = ModuleName "Graphics.Rendering.OpenGL.Raw.Core31.Types"
+ typesModule <- askTypesModule
+ addModule' modName Compatibility $ tellReExportModule typesModule
+
addARBCompatibility :: Builder ()
addARBCompatibility = do
let modFilter (Version _ _ True) = True

0 comments on commit 02802ec

Please sign in to comment.