cleanup

2 files changed, 3 insertions, 11 deletions

diff --git a/src/LambdaCube/Compiler/Core.hs b/src/LambdaCube/Compiler/Core.hs
index 02dd6c50..a03dce77 100644
--- a/src/LambdaCube/Compiler/Core.hs
+++ b/src/LambdaCube/Compiler/Core.hs
@@ -696,17 +696,7 @@ instance NType Lit where
         LString _ -> TString
         LChar _   -> TChar
 
-{-
-data ConName       = ConName       FName Int  Type
-data TyConName     = TyConName     FName Int  Type   [(ConName, Type)] CaseFunName
-data FunName       = FunName       FName Int  FunDef Type
-data CaseFunName   = CaseFunName   FName Type Int
-data TyCaseFunName = TyCaseFunName FName Type
-data FunDef
-    = DeltaDef !Int (FreeVars -> [Exp] -> Exp)
-    | NoDef
-    | ExpDef Exp
--}
+-------------------------------------------------------- exp serialization
 
 trace :: String -> a -> a
 trace _ = id
diff --git a/src/LambdaCube/Compiler/DesugaredSource.hs b/src/LambdaCube/Compiler/DesugaredSource.hs
index 8d9a38be..4a556c32 100644
--- a/src/LambdaCube/Compiler/DesugaredSource.hs
+++ b/src/LambdaCube/Compiler/DesugaredSource.hs
@@ -21,6 +21,7 @@ import qualified Data.ByteString.Char8 as BS
 import Data.Binary
 import GHC.Generics (Generic)
 
+--import Data.Text (Text)
 import Data.Monoid
 import Data.Maybe
 import Data.List
@@ -36,6 +37,7 @@ import LambdaCube.Compiler.Pretty --hiding (braces, parens)
 
 -------------------------------------------------------------------------------- simple name
 
+-- TODO: move to Text
 type SName = String
 
 pattern Ticked :: SName -> SName