fix PGF.Generate.restart. The restart should be done only if there are some solutions found

2010-10-13 12:38:51 +00:00
parent cecf94d729
commit 09ce38742c
1 changed files with 1 additions and 1 deletions
--- a/src/runtime/haskell/PGF/Generate.hs
+++ b/src/runtime/haskell/PGF/Generate.hs
@@ -148,5 +148,5 @@ restart :: RandomGen g => g -> (g -> [a]) -> [a]
 restart g f =
  let (g1,g2) = split g
  in case f g1 of
-       []     -> restart g2 f
+       []     -> []
       (x:xs) -> x : restart g2 f