twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix error in select.

Browse Source
This commit is contained in:
David Roundy 2007-06-01 18:31:47 +00:00
parent 7ce66ce32a
commit b7c65599b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Anneal.hs
View File

@ -57,8 +57,8 @@ metropolis x = do r <- gets rate
then modify $ \s -> s { current = rx } then modify $ \s -> s { current = rx }
else return () else return ()
select :: [a] -> State (Anneal x) a select :: [a] -> State (Anneal a) a
select [] = error "empty list in select" select [] = the_value `fmap` gets best
select [x] = return x select [x] = return x
select xs = do n <- getOne (0,length xs - 1) select xs = do n <- getOne (0,length xs - 1)
return (xs !! n) return (xs !! n)