Fixed problem in code-gen monad (definitions and parameters resulted …

…in wrong order)
HIPERFIT · Sep 2, 2011 · fbad2a1 · fbad2a1
1 parent 26a2b18
commit fbad2a1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/Array/Accelerate/OpenCL/CodeGen/Monad.hs b/Data/Array/Accelerate/OpenCL/CodeGen/Monad.hs
@@ -18,7 +18,7 @@ emptySkelState = SkelState [] []
 type CGM = State SkelState
 
 runCGM :: CGM () -> CUTranslSkel
-runCGM st = CUTranslSkel . _definitions $ execState st emptySkelState
+runCGM st = CUTranslSkel . reverse . _definitions $ execState st emptySkelState
 
 
 -- Setters
@@ -28,7 +28,7 @@ addDefinition def =
 
 addParam :: Param -> CGM ()
 addParam param =
-  modify $ \s -> s {_params = param : (_params s)}
+  modify $ \s -> s {_params = (_params s) ++ [param]}
 
 addDefinitions :: [Definition] -> CGM ()
 addDefinitions = mapM_ addDefinition