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 <[email protected]> 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 = _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
