[commit: ghc] type-nats: Fix the implementation of the type literal trie. (ca6a358)

[Iavor Diatchki]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : type-nats

http://hackage.haskell.org/trac/ghc/changeset/ca6a358a1668488502dca46fe20157a5950ebb25

>---------------------------------------------------------------

commit ca6a358a1668488502dca46fe20157a5950ebb25
Author: Iavor S. Diatchki <iavor.diatchki at gmail.com>
Date:   Sun Dec 18 18:36:46 2011 -0800

    Fix the implementation of the type literal trie.

>---------------------------------------------------------------

 compiler/coreSyn/TrieMap.lhs |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/coreSyn/TrieMap.lhs b/compiler/coreSyn/TrieMap.lhs
index e481886..e6779b7 100644
--- a/compiler/coreSyn/TrieMap.lhs
+++ b/compiler/coreSyn/TrieMap.lhs
@@ -554,12 +554,10 @@ fdT k m = foldTM k (tm_var m)
 
 
 ------------------------
-data TyLitMap a
-  = EmptyTLM
-  | TLM { tlm_number :: Map.Map Integer a }
+data TyLitMap a = TLM { tlm_number :: Map.Map Integer a }
 
 emptyTyLitMap :: TyLitMap a
-emptyTyLitMap = EmptyTLM
+emptyTyLitMap = TLM { tlm_number = Map.empty }
 
 lkTyLit :: TyLit -> TyLitMap a -> Maybe a
 lkTyLit l =