From 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 26 May 2004 08:33:27 +0000 Subject: strict BinTree --- src/GF/Data/Operations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Data') 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 -- cgit v1.2.3