minor robustness fixes in repo cost reordering code

Assistant/WebApp/RepoList.hs

@@ -187,16 +187,16 @@ getRepositoriesReorderR = do
 	{- Get uuid of the moved item, and the list it was moved within. -}
 	moved <- fromjs <$> runInputGet (ireq textField "moved")
 	list <- map fromjs <$> lookupGetParams "list[]"
-	void $ liftAnnex $ do
+	liftAnnex $ go list =<< Remote.remoteFromUUID moved
-		remote <- fromMaybe (error "Unknown UUID") <$>
+	liftAssistant updateSyncRemotes
-			Remote.remoteFromUUID moved
+  where
+	go _ Nothing = noop
+  	go list (Just remote) = do
 		rs <- catMaybes <$> mapM Remote.remoteFromUUID list
 		forM_ (reorderCosts remote rs) $ \(r, newcost) ->
 			when (Remote.cost r /= newcost) $
 				setRemoteCost r newcost
-		remoteListRefresh
+		void remoteListRefresh
-	liftAssistant updateSyncRemotes
-  where
   	fromjs = toUUID . T.unpack
 
 reorderCosts :: Remote -> [Remote] -> [(Remote, Cost)]

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]