GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-18 01:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

strict BinTree

Browse Source
This commit is contained in:
aarne
2004-05-26 08:33:27 +00:00
parent ba74c109cd
commit 2945d9bcb8
3 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Data/Operations.hs
View File

@@ -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