git.iko.soy/elk
on master help sign in
cosmetic: use Haskell style guide recommendation for many cased definition
8c6e080Evan Czaplicki
compiler/SourceSyntax/Literal.hs+9−7
compare with master
unifiedsplit
@@ -25,13 +25,15 @@ data GLTipe = Int | Float | V2 | V3 | V4 | M4 | Texture
25 deriving (Show)
25 deriving (Show)
26
26
27glTipeName :: GLTipe -> String
27glTipeName :: GLTipe -> String
28−glTipeName Int = "Int"
28+glTipeName glTipe =
29+ case glTipe of
30+ Int -> "Int"
29−glTipeName Float = "Float"
31+ Float -> "Float"
30−glTipeName V2 = "MJS.V2"
32+ V2 -> "MJS.V2"
31−glTipeName V3 = "MJS.V3"
33+ V3 -> "MJS.V3"
32−glTipeName V4 = "MJS.V4"
34+ V4 -> "MJS.V4"
33−glTipeName M4 = "MJS.M4x4"
35+ M4 -> "MJS.M4x4"
34−glTipeName Texture = "Graphics.WebGL.Texture"
36+ Texture -> "Graphics.WebGL.Texture"
35
37
36data GLShaderTipe = GLShaderTipe
38data GLShaderTipe = GLShaderTipe
37 { attribute :: Map String GLTipe
39 { attribute :: Map String GLTipe