diff options
Diffstat (limited to 'Config/Cost.hs')
| -rw-r--r-- | Config/Cost.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Config/Cost.hs b/Config/Cost.hs index 94bab1fe1..dc391a5a5 100644 --- a/Config/Cost.hs +++ b/Config/Cost.hs @@ -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] |