@@ -1,6 +1,8 @@
11{-# OPTIONS_GHC -Wall #-}
2+{-# LANGUAGE EmptyDataDecls #-}
23module AST.Utils.Shader
3− ( Shader(..)
4+ ( Source
5+ , Types(..)
46 , Type(..)
57 )
68 where
@@ -8,24 +10,30 @@ module AST.Utils.Shader
810
911import qualified Data.Map as Map
1012import qualified Data.Name as Name
13+import qualified Data.Utf8 as Utf8
1114
1215
1316
14−-- SHADERS
17+-- SOURCE
1518
1619
17−data Shader =
18− Shader
20+type Source = Utf8.VeryLong SOURCE
21+
22+data SOURCE
23+
24+
25+
26+-- TYPES
27+
28+
29+data Types =
30+ Types
1931 { _attribute :: Map.Map Name.Name Type
2032 , _uniform :: Map.Map Name.Name Type
2133 , _varying :: Map.Map Name.Name Type
2234 }
2335
2436
25−
26−-- GL TYPES
27−
28−
2937data Type
3038 = Int
3139 | Float