fix #10 (haddock build failure)

3 files changed, 4 insertions, 3 deletions

diff --git a/lambdacube-compiler.cabal b/lambdacube-compiler.cabal
index 630286a5..544d9a70 100644
--- a/lambdacube-compiler.cabal
+++ b/lambdacube-compiler.cabal
@@ -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
diff --git a/src/LambdaCube/Compiler/Core.hs b/src/LambdaCube/Compiler/Core.hs
index 181d07e8..91056dd9 100644
--- a/src/LambdaCube/Compiler/Core.hs
+++ b/src/LambdaCube/Compiler/Core.hs
@@ -442,7 +442,7 @@ instance MkDoc Neutral where
         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
diff --git a/src/LambdaCube/Compiler/DesugaredSource.hs b/src/LambdaCube/Compiler/DesugaredSource.hs
index 7bb5ba96..9e0949b0 100644
--- a/src/LambdaCube/Compiler/DesugaredSource.hs
+++ b/src/LambdaCube/Compiler/DesugaredSource.hs
@@ -102,7 +102,8 @@ instance PShow Range
 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