basic checks

src/Main.hs

@@ -5,6 +5,8 @@ module Main (main) where
 
 -- IMPORTS --
 
+import Text.Pretty.Simple
+
 import Relude
 
 import Types
@@ -13,9 +15,11 @@ import Types
 
 main :: IO ()
 main = do
-  putTextLn "hallo Welt"
-  putStrLn $ generateGLSL vertShader
-  putStrLn $ generateGLSL fragShader
+  let a = generateCheckedGLSL fragShader
+  let b = generateCheckedGLSL vertShader
+  pPrint a
+  pPrint b
+  return ()
 
 fragShader :: Program
 fragShader =
@@ -34,7 +38,7 @@ vertShader =
   , VariableDeclaration Nothing Out fragColorOut
   , MainStart
   , VariableAssignment GL_POSITION vertexPosition
-  , VariableAssignment fragColorIn vertexColor
+  , VariableAssignment fragColorOut vertexColor
   ]
 
 fragColorIn = Variable "fragColorIn" $ GLSLVec4 GLSLFloat