emphasis on where i'm stuck
commit481478db615c9924b80f4fbd09f75e9608a91246
authorJohn P Mayer Jr <john.p.mayer.jr@gmail.com>
dateThu 28 Nov 2013, 20:54 (13 years ago)
parent62585b7
compiler/Type/Constrain/Expression.hs+4
@@ -1,3 +1,6 @@
1+
2+{-# OPTIONS -Wall #-}
3+
14module Type.Constrain.Expression where
25
36import qualified Data.List as List
@@ -37,6 +40,7 @@ constrain env (L span expr) tipe =
3740
3841 GLShader _ src -> return . L span $ CEqual tipe shaderTipe
3942 where
43+ shaderTipe :: Type
4044 shaderTipe = error "What's the shader type"
4145
4246 Var name | name == saveEnvName -> return (L span CSaveEnv)