lambdacube-compiler 0.6.0.0 → 0.6.0.1

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

• lambdacube-compiler.cabal +1/−1
• src/LambdaCube/Compiler/Core.hs +1/−1
• src/LambdaCube/Compiler/DesugaredSource.hs +2/−1

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                lambdacube-compiler-version:             0.6.0.0+version:             0.6.0.1 homepage:            http://lambdacube3d.com synopsis:            LambdaCube 3D is a DSL to program GPUs description:         LambdaCube 3D is a domain specific language and library that makes it

@@ -442,7 +442,7 @@         CstrT' t a b        -> shCstr (mkDoc pr a) (mkDoc pr (ET b t))         Fun (FunName _ _ (ExpDef d) _) xs _ | body -> mkDoc (reduce, False) (foldlrev app_ d xs)         FFix (getFixLam -> Just (s, xs)) | not body -> foldl DApp (pShow s) $ mkDoc pr <$> xs-        FFix f {- | body -} -> foldl DApp "primFix" [{-pShow t -}"_", mkDoc pr f]+        FFix f -> foldl DApp "primFix" [{-pShow t -}"_", mkDoc pr f]         Fun (FunName _ _ (DeltaDef n _) _) _ _ | body -> text $ "<<delta function with arity " ++ show n ++ ">>"         Fun (FunName _ _ NoDef _) _ _ | body -> "<<builtin>>"         ReducedN a | reduce -> mkDoc pr a

@@ -102,7 +102,8 @@ showRangeWithoutFileName (Range _ b e) = pShow b <> "-" <> pShow e  joinRange :: Range -> Range -> Range-joinRange (Range n b e) (Range n' b' e') {- | n == n' -} = Range n (min b b') (max e e')+joinRange (Range n b e) (Range n' b' e') = Range n (min b b') (max e e')+-- TODO: check (n == n') ?  -------------------------------------------------------------------------------- source info