diff options
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/Generate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Generate.hs b/src/runtime/haskell/PGF/Generate.hs index 5073b34ca..3e4285617 100644 --- 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 |