aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Sunet <jeannekamikaze@gmail.com>2012-08-08 13:19:06 +0200
committerMarc Sunet <jeannekamikaze@gmail.com>2012-08-08 13:19:06 +0200
commit6deb013c7c515c9e001a802c0747680bec7af71d (patch)
tree434c797cd8f25d647100386b2c29541a53673d43
parent5e228f4f55eafdb947426bb900175eb5d8188073 (diff)
Fixed whitespace to make line 39 more clear
-rw-r--r--Spear/IDStore.hs2
1 files changed, 1 insertions, 1 deletions
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) =
36 if last == U.length assigned - 1 36 if last == U.length assigned - 1
37 then case findIndex (==False) assigned of 37 then case findIndex (==False) assigned of
38 Just i -> assign i store 38 Just i -> assign i store
39 Nothing -> newID $ IDStore (assigned U.++ U.replicate (max 1 last+1) False) last 39 Nothing -> newID $ IDStore (assigned U.++ U.replicate (max 1 last + 1) False) last
40 else 40 else
41 assign (last+1) store 41 assign (last+1) store
42 42