fix error in select.

darcs-hash:20070601183147-72aca-7e72a8a8953398776e0a9f0d9a8ed51fe982b2b3.gz

1 files changed, 2 insertions, 2 deletions

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