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 | ||