minor robustness fixes in repo cost reordering code
This commit is contained in:
parent
705cb5a84a
commit
69cc8e83ce
2 changed files with 7 additions and 7 deletions
|
@ -42,7 +42,7 @@ encryptedRemoteCostAdj = 50
|
|||
- position longer than the list.
|
||||
-}
|
||||
insertCostAfter :: [Cost] -> Int -> [Cost]
|
||||
insertCostAfter [] _ = error "insertCostAfter: empty list"
|
||||
insertCostAfter [] _ = []
|
||||
insertCostAfter l pos
|
||||
| pos < 0 = costBetween 0 (l !! 0) : l
|
||||
| nextpos > maxpos = l ++ [1 + l !! maxpos]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue