diff options
| author | simonmar <unknown> | 2005-03-31 10:16:46 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-03-31 10:16:46 +0000 |
| commit | 853e20a3eb86137cdb8accf69c6caa9db83a3d34 (patch) | |
| tree | 803e7b469d073d88fa7644dccbaeedbd986bd462 /ghc/compiler/utils/UniqFM.lhs | |
| parent | ca739e852566d7e0bfd594e6d7bf08da04f78d3c (diff) | |
| download | haskell-853e20a3eb86137cdb8accf69c6caa9db83a3d34.tar.gz | |
[project @ 2005-03-31 10:16:33 by simonmar]
Tweaks to get the GHC sources through Haddock. Doesn't quite work
yet, because Haddock complains about the recursive modules. Haddock
needs to understand SOURCE imports (it can probably just ignore them
as a first attempt).
Diffstat (limited to 'ghc/compiler/utils/UniqFM.lhs')
| -rw-r--r-- | ghc/compiler/utils/UniqFM.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/utils/UniqFM.lhs b/ghc/compiler/utils/UniqFM.lhs index aa357b8740..52d34d9983 100644 --- a/ghc/compiler/utils/UniqFM.lhs +++ b/ghc/compiler/utils/UniqFM.lhs @@ -334,25 +334,25 @@ plusUFM_C f fm1 fm2 = mix_trees fm1 fm2 -- t1 t2 t1' t2' t1 t2 + j' -- / \ -- t1' t2' - mix_branches (LeftRoot Leftt) -- | trace "LL" True + mix_branches (LeftRoot Leftt) -- | trace "LL" True = mkSLNodeUFM (NodeUFMData j p) (mix_trees t1 right_t) t2 - mix_branches (LeftRoot Rightt) -- | trace "LR" True + mix_branches (LeftRoot Rightt) -- | trace "LR" True = mkLSNodeUFM (NodeUFMData j p) t1 (mix_trees t2 right_t) - mix_branches (RightRoot Leftt) -- | trace "RL" True + mix_branches (RightRoot Leftt) -- | trace "RL" True = mkSLNodeUFM (NodeUFMData j' p') (mix_trees left_t t1') t2' - mix_branches (RightRoot Rightt) -- | trace "RR" True + mix_branches (RightRoot Rightt) -- | trace "RR" True = mkLSNodeUFM (NodeUFMData j' p') t1' |