fix typo & refactoring

55 files changed, 65 insertions, 65 deletions

diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs
index 3a63ffb8..a392b1ba 100644
--- a/src/LambdaCube/Compiler/CoreToIR.hs
+++ b/src/LambdaCube/Compiler/CoreToIR.hs
@@ -42,7 +42,7 @@ import Paths_lambdacube_compiler (version)
 
 compilePipeline :: IR.Backend -> ExpType -> IR.Pipeline
 compilePipeline backend exp = IR.Pipeline
-    { IR.info       = "generated by lambdcube-compiler " ++ showVersion version
+    { IR.info       = "generated by lambdacube-compiler " ++ showVersion version
     , IR.backend    = backend
     , IR.samplers   = mempty
     , IR.programs   = Vector.fromList . map fst . sortBy (compare `on` snd) . Map.toList $ programs
diff --git a/src/LambdaCube/Compiler/Infer.hs b/src/LambdaCube/Compiler/Infer.hs
index cd90acc2..c43fc8ff 100644
--- a/src/LambdaCube/Compiler/Infer.hs
+++ b/src/LambdaCube/Compiler/Infer.hs
@@ -1213,10 +1213,16 @@ listTypeInfos m = map (second Set.toList) $ Map.toList $ Map.unionsWith (<>) [Ma
 
 -------------------------------------------------------------------------------- inference for statements
 
+inference :: MonadFix m => [Stmt] -> IM m [GlobalEnv]
+inference [] = return []
+inference (x:xs) = do
+    y <- handleStmt x
+    (y:) <$> withEnv y (inference xs)
+
 modn = 0
 
-handleStmt :: MonadFix m => [Stmt] -> Stmt -> IM m GlobalEnv
-handleStmt defs = \case
+handleStmt :: MonadFix m => Stmt -> IM m GlobalEnv
+handleStmt = \case
   Primitive n (trSExp' -> t_) -> do
         t <- inferType =<< ($ t_) <$> addF
         tellType (fst n) t
@@ -1522,20 +1528,14 @@ getList _ = Nothing
 mfix' f = ExceptT (mfix (runExceptT . f . either bomb id))
   where bomb e = error $ "mfix (ExceptT): inner computation returned Left value:\n" ++ show e
 
-inference_ :: PolyEnv -> Extensions -> [Stmt] -> ExceptT ErrorMsg (WriterT Infos Identity) PolyEnv
-inference_ (PolyEnv pe is _) exts defs = mapExceptT (ff . runWriter . flip runReaderT (exts, mempty)) $ gg (handleStmt defs) (initEnv <> pe) defs
+inference_ :: MonadFix m => PolyEnv -> Extensions -> [Stmt] -> ExceptT ErrorMsg (WriterT Infos m) PolyEnv
+inference_ (PolyEnv pe is _) exts defs = mapExceptT (ff <=< runWriterT . flip runReaderT (exts, initEnv <> pe)) $ inference defs
   where
     ff (Left e, is) = do
         tell is
         return $ Left e
     ff (Right ge, is) = do
-        return $ Right $ PolyEnv ge is $ mkDesugarInfo defs
-
-    gg _ acc [] = return acc
-    gg m acc (x:xs) = do
-        y <- withEnv acc $ m x
-        gg m (acc <> y) xs
-
+        return $ Right $ PolyEnv (mconcat ge) is $ mkDesugarInfo defs
 
 foldlrev f = foldr (flip f)
 
diff --git a/testdata/Graphics.out b/testdata/Graphics.out
index fc891b27..52c8a2ed 100644
--- a/testdata/Graphics.out
+++ b/testdata/Graphics.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/HyperbolicParaboloic.out b/testdata/HyperbolicParaboloic.out
index 5d3a227d..efda87e1 100644
--- a/testdata/HyperbolicParaboloic.out
+++ b/testdata/HyperbolicParaboloic.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/Hyperboloid.out b/testdata/Hyperboloid.out
index d5b9ffe4..a6cd90ed 100644
--- a/testdata/Hyperboloid.out
+++ b/testdata/Hyperboloid.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/NewStyle.out b/testdata/NewStyle.out
index d9ceac58..df7635d9 100644
--- a/testdata/NewStyle.out
+++ b/testdata/NewStyle.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/PrimReduce.out b/testdata/PrimReduce.out
index 4f97a536..212258c8 100644
--- a/testdata/PrimReduce.out
+++ b/testdata/PrimReduce.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/Spiral.out b/testdata/Spiral.out
index caf959b7..9e0f093b 100644
--- a/testdata/Spiral.out
+++ b/testdata/Spiral.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/Clear.out b/testdata/editor-examples/Clear.out
index 18eeda77..89439690 100644
--- a/testdata/editor-examples/Clear.out
+++ b/testdata/editor-examples/Clear.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/Cube.out b/testdata/editor-examples/Cube.out
index 50d41569..e682b5ec 100644
--- a/testdata/editor-examples/Cube.out
+++ b/testdata/editor-examples/Cube.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/LambdaCube.out b/testdata/editor-examples/LambdaCube.out
index d4438455..d4dc5349 100644
--- a/testdata/editor-examples/LambdaCube.out
+++ b/testdata/editor-examples/LambdaCube.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/LambdaCube2.out b/testdata/editor-examples/LambdaCube2.out
index 60171966..30fc82fe 100644
--- a/testdata/editor-examples/LambdaCube2.out
+++ b/testdata/editor-examples/LambdaCube2.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/MagicCube.out b/testdata/editor-examples/MagicCube.out
index dc91cd89..cd066598 100644
--- a/testdata/editor-examples/MagicCube.out
+++ b/testdata/editor-examples/MagicCube.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/RecLC.out b/testdata/editor-examples/RecLC.out
index b1f02384..8d679d2f 100644
--- a/testdata/editor-examples/RecLC.out
+++ b/testdata/editor-examples/RecLC.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/editor-examples/RecursiveTexture.out b/testdata/editor-examples/RecursiveTexture.out
index 98124568..f222df27 100644
--- a/testdata/editor-examples/RecursiveTexture.out
+++ b/testdata/editor-examples/RecursiveTexture.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/editor-examples/Stripes.out b/testdata/editor-examples/Stripes.out
index 60662a5b..d0e09f4e 100644
--- a/testdata/editor-examples/Stripes.out
+++ b/testdata/editor-examples/Stripes.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/Tetrahedron.out b/testdata/editor-examples/Tetrahedron.out
index f81fb7a4..64583387 100644
--- a/testdata/editor-examples/Tetrahedron.out
+++ b/testdata/editor-examples/Tetrahedron.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/editor-examples/Texturing.out b/testdata/editor-examples/Texturing.out
index 7381e74c..6b1b8109 100644
--- a/testdata/editor-examples/Texturing.out
+++ b/testdata/editor-examples/Texturing.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/example06.out b/testdata/example06.out
index d9285bb7..a2e28c5a 100644
--- a/testdata/example06.out
+++ b/testdata/example06.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/example07.out b/testdata/example07.out
index 23bac40e..686beffc 100644
--- a/testdata/example07.out
+++ b/testdata/example07.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/example08.out b/testdata/example08.out
index ca4354f3..66bca652 100644
--- a/testdata/example08.out
+++ b/testdata/example08.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/fetcharrays01.out b/testdata/fetcharrays01.out
index 06db8806..c1f0a7ad 100644
--- a/testdata/fetcharrays01.out
+++ b/testdata/fetcharrays01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/fragment01.out b/testdata/fragment01.out
index ad87df18..8af9a0cd 100644
--- a/testdata/fragment01.out
+++ b/testdata/fragment01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/fragment03swizzling.out b/testdata/fragment03swizzling.out
index 8e68922f..8d5bc692 100644
--- a/testdata/fragment03swizzling.out
+++ b/testdata/fragment03swizzling.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/fragment04ifthenelse.out b/testdata/fragment04ifthenelse.out
index d6ea99b4..5bcc7cb7 100644
--- a/testdata/fragment04ifthenelse.out
+++ b/testdata/fragment04ifthenelse.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/fragment07let.out b/testdata/fragment07let.out
index 3d59a3da..6ad7697c 100644
--- a/testdata/fragment07let.out
+++ b/testdata/fragment07let.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/framebuffer01.out b/testdata/framebuffer01.out
index b3e61dc5..f80a62f9 100644
--- a/testdata/framebuffer01.out
+++ b/testdata/framebuffer01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/framebuffer02.out b/testdata/framebuffer02.out
index c646d8a9..1c50e55d 100644
--- a/testdata/framebuffer02.out
+++ b/testdata/framebuffer02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/framebuffer03.out b/testdata/framebuffer03.out
index 059bf34d..d18d82f7 100644
--- a/testdata/framebuffer03.out
+++ b/testdata/framebuffer03.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/framebuffer04.out b/testdata/framebuffer04.out
index 95f6dae7..3b0abde9 100644
--- a/testdata/framebuffer04.out
+++ b/testdata/framebuffer04.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/framebuffer05.out b/testdata/framebuffer05.out
index 95f6dae7..3b0abde9 100644
--- a/testdata/framebuffer05.out
+++ b/testdata/framebuffer05.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/gfx00.out b/testdata/gfx00.out
index b3e61dc5..f80a62f9 100644
--- a/testdata/gfx00.out
+++ b/testdata/gfx00.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/gfx01.out b/testdata/gfx01.out
index b3e61dc5..f80a62f9 100644
--- a/testdata/gfx01.out
+++ b/testdata/gfx01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/gfx02.out b/testdata/gfx02.out
index e4a79e42..e7281935 100644
--- a/testdata/gfx02.out
+++ b/testdata/gfx02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/gfx03.out b/testdata/gfx03.out
index 3ea828c2..e296cb35 100644
--- a/testdata/gfx03.out
+++ b/testdata/gfx03.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/gfx04.out b/testdata/gfx04.out
index b39f1a1c..be483c99 100644
--- a/testdata/gfx04.out
+++ b/testdata/gfx04.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/graphics-features/codegen/shadergen01.out b/testdata/graphics-features/codegen/shadergen01.out
index 50d41569..e682b5ec 100644
--- a/testdata/graphics-features/codegen/shadergen01.out
+++ b/testdata/graphics-features/codegen/shadergen01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/heartbeat01.out b/testdata/heartbeat01.out
index 51ac0675..bdecd69e 100644
--- a/testdata/heartbeat01.out
+++ b/testdata/heartbeat01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/helloWorld.out b/testdata/helloWorld.out
index 7a632a5a..f54dc33f 100644
--- a/testdata/helloWorld.out
+++ b/testdata/helloWorld.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/line01.out b/testdata/line01.out
index a19722c6..9a8163e5 100644
--- a/testdata/line01.out
+++ b/testdata/line01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/point01.out b/testdata/point01.out
index cbde6788..dbc912fa 100644
--- a/testdata/point01.out
+++ b/testdata/point01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/recursivetexture01.out b/testdata/recursivetexture01.out
index 4ba1d95a..654c2f78 100644
--- a/testdata/recursivetexture01.out
+++ b/testdata/recursivetexture01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/recursivetexture02.out b/testdata/recursivetexture02.out
index 6cc2813b..f6dd7f86 100644
--- a/testdata/recursivetexture02.out
+++ b/testdata/recursivetexture02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/reduce01.out b/testdata/reduce01.out
index e4a79e42..e7281935 100644
--- a/testdata/reduce01.out
+++ b/testdata/reduce01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/reduce02.out b/testdata/reduce02.out
index e61b4417..a769c37f 100644
--- a/testdata/reduce02.out
+++ b/testdata/reduce02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/reduce03.out b/testdata/reduce03.out
index b3e61dc5..f80a62f9 100644
--- a/testdata/reduce03.out
+++ b/testdata/reduce03.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/reduce04.out b/testdata/reduce04.out
index e61b4417..a769c37f 100644
--- a/testdata/reduce04.out
+++ b/testdata/reduce04.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/reduce05.out b/testdata/reduce05.out
index 98edf765..67c56c7b 100644
--- a/testdata/reduce05.out
+++ b/testdata/reduce05.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/simple02.out b/testdata/simple02.out
index faf41dea..6fd34982 100644
--- a/testdata/simple02.out
+++ b/testdata/simple02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/simple03.out b/testdata/simple03.out
index dc2dcca3..14749d10 100644
--- a/testdata/simple03.out
+++ b/testdata/simple03.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/texture01.out b/testdata/texture01.out
index f4e20137..b89e3f09 100644
--- a/testdata/texture01.out
+++ b/testdata/texture01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/texture02.out b/testdata/texture02.out
index 3ecb149f..57204f5e 100644
--- a/testdata/texture02.out
+++ b/testdata/texture02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures =
       [ TextureDescriptor
diff --git a/testdata/uniformparam01.out b/testdata/uniformparam01.out
index 1b5bf8ef..6507e43b 100644
--- a/testdata/uniformparam01.out
+++ b/testdata/uniformparam01.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/uniformparam02.out b/testdata/uniformparam02.out
index 8fde7aec..8f65dfa2 100644
--- a/testdata/uniformparam02.out
+++ b/testdata/uniformparam02.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []
diff --git a/testdata/uniformparam03.out b/testdata/uniformparam03.out
index 1b5bf8ef..6507e43b 100644
--- a/testdata/uniformparam03.out
+++ b/testdata/uniformparam03.out
@@ -1,5 +1,5 @@
 Pipeline
-  { info = "generated by lambdcube-compiler 0.5.0.0"
+  { info = "generated by lambdacube-compiler 0.5.0.0"
   , backend = OpenGL33
   , textures = []
   , samplers = []