From 393dde2eb93a975442697c177dbb161e4300bea0 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 15 Oct 2014 20:42:36 +0000
Subject: Fixes for the haddock documentation

---
 src/compiler/GF/Compile/Compute/Predef.hs | 2 +-
 src/compiler/GF/Compile/Compute/Value.hs  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler/GF/Compile/Compute')

diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs
index 74697a89b..ba215ba30 100644
--- a/src/compiler/GF/Compile/Compute/Predef.hs
+++ b/src/compiler/GF/Compile/Compute/Predef.hs
@@ -98,7 +98,7 @@ delta f vs =
       Plus    -> ap2 ((+)::Int->Int->Int)
       EqInt   -> ap2 ((==)::Int->Int->Bool)
       LessInt -> ap2 ((<)::Int->Int->Bool)
-    {- | Show | Read | ToStr | MapStr | EqVal -}
+    {- -- | Show | Read | ToStr | MapStr | EqVal -}
       Error   -> ap1 VError
       -- Canonical values:
       PBool   -> canonical
diff --git a/src/compiler/GF/Compile/Compute/Value.hs b/src/compiler/GF/Compile/Compute/Value.hs
index f076e47ba..35f093ada 100644
--- a/src/compiler/GF/Compile/Compute/Value.hs
+++ b/src/compiler/GF/Compile/Compute/Value.hs
@@ -11,7 +11,7 @@ data Value
   | VCApp QIdent [Value] -- from QC, constructors
   | VGen Int [Value] -- for lambda bound variables, possibly applied
   | VMeta MetaId Env [Value]
--- | VClosure Env Term -- used in Typecheck.ConcreteNew
+-- -- | VClosure Env Term -- used in Typecheck.ConcreteNew
   | VAbs BindType Ident Binding -- used in Compute.ConcreteNew
   | VProd BindType Value Ident Binding -- used in Compute.ConcreteNew
   | VInt Int
@@ -32,7 +32,7 @@ data Value
   | VFV [Value]
   | VAlts Value [(Value, Value)]
   | VStrs [Value]
--- | VGlue Value Value -- hmm
+-- -- | VGlue Value Value -- hmm
   | VExtR Value Value -- hmm
   | VError String
   deriving (Eq,Show)
-- 
cgit v1.2.3