From 6deb013c7c515c9e001a802c0747680bec7af71d Mon Sep 17 00:00:00 2001 From: Marc Sunet Date: Wed, 8 Aug 2012 13:19:06 +0200 Subject: Fixed whitespace to make line 39 more clear --- Spear/IDStore.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Spear/IDStore.hs b/Spear/IDStore.hs index 9762438..a581fa9 100644 --- a/Spear/IDStore.hs +++ b/Spear/IDStore.hs @@ -36,7 +36,7 @@ newID store@(IDStore assigned last) = if last == U.length assigned - 1 then case findIndex (==False) assigned of Just i -> assign i store - Nothing -> newID $ IDStore (assigned U.++ U.replicate (max 1 last+1) False) last + Nothing -> newID $ IDStore (assigned U.++ U.replicate (max 1 last + 1) False) last else assign (last+1) store -- cgit v1.2.3