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