diff options
author | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-08 13:19:06 +0200 |
---|---|---|
committer | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-08 13:19:06 +0200 |
commit | 6deb013c7c515c9e001a802c0747680bec7af71d (patch) | |
tree | 434c797cd8f25d647100386b2c29541a53673d43 | |
parent | 5e228f4f55eafdb947426bb900175eb5d8188073 (diff) |
Fixed whitespace to make line 39 more clear
-rw-r--r-- | Spear/IDStore.hs | 2 |
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 | ||