another hamlet compat fix

This commit is contained in:
Joey Hess 2013-03-14 16:22:18 -04:00
parent 7dcf33a164
commit bcc40eac4a
3 changed files with 3 additions and 3 deletions

View file

@ -213,7 +213,7 @@ getRepositoriesReorderR = do
remoteListRefresh
liftAssistant updateSyncRemotes
where
fromjs = toUUID . snd . separate (== '_') . T.unpack
fromjs = toUUID . T.unpack
reorderCosts :: Remote -> [Remote] -> [(Remote, Cost)]
reorderCosts remote rs = zip rs'' (insertCostAfter costs i)