From 347eebc55a1de42429b38b67c355a48a358ead63 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 18 Dec 2014 10:35:34 +1100 Subject: nextIP will now filter out all empty IPs --- src/Grasp/Monad.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/Grasp/Monad.hs b/src/Grasp/Monad.hs index 3a3bd4f..bea8cd8 100644 --- a/src/Grasp/Monad.hs +++ b/src/Grasp/Monad.hs @@ -295,11 +295,8 @@ peekIP = do nextIP :: GraspM () nextIP = do (gr, ips, fh) <- State.get - let ips' = if (length ips == 0) - then [] - else if (IP.isEmpty (head ips)) - then tail ips - else (tail ips) ++ [head ips] + let nonEmpties = filter (not . IP.isEmpty) ips + ips' = if (length nonEmpties == 0) then [] else (tail ips) ++ [head ips] gr' = garbageCollect gr ips' State.put (gr', ips', fh) -- cgit