diff options
Diffstat (limited to 'src/GF/Data/Operations.hs')
| -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 |