From 3988e0eaaed37cedfdb7b09119ca93667c837072 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 4 Jun 2007 08:26:53 +0200 Subject: Use the new integrate function darcs-hash:20070604062653-a5988-8a6456ccc1dd03fa1c733e71dfa056dd76a91186 --- StackSet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'StackSet.hs') diff --git a/StackSet.hs b/StackSet.hs index 1f6db7e..48dff02 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -257,7 +257,7 @@ integrate (Node x l r) = reverse l ++ x : r -- integration of a one-hole list cursor, back to a list. -- index :: Eq a => StackSet i a s -> [a] -index = with [] $ \(Node t l r) -> reverse l ++ t : r +index = with [] integrate -- let is = t : r ++ reverse l in take (length is) (dropWhile (/= m) (cycle is)) -- cgit v1.2.3