diff options
| author | aarne <unknown> | 2004-05-26 08:33:27 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-05-26 08:33:27 +0000 |
| commit | 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 (patch) | |
| tree | 7f63909f1620d6138147bc3d9a905fc24c48342f /src/GF/Data | |
| parent | ba74c109cd38209e046a1cf48ff8ef7604a1261a (diff) | |
strict BinTree
Diffstat (limited to 'src/GF/Data')
| -rw-r--r-- | src/GF/Data/Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Data/Operations.hs b/src/GF/Data/Operations.hs index dd8e37380..a23309575 100644 --- a/src/GF/Data/Operations.hs +++ b/src/GF/Data/Operations.hs @@ -179,7 +179,7 @@ updatePerhapsHard old p1 p2 = case (p1,p2) of -- binary search trees -data BinTree a = NT | BT a (BinTree a) (BinTree a) deriving (Show,Read) +data BinTree a = NT | BT a !(BinTree a) !(BinTree a) deriving (Show,Read) isInBinTree :: (Ord a) => a -> BinTree a -> Bool isInBinTree x tree = case tree of |