Matt McCutchen's Web Site
/
match
/
match.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0df1b3e
)
Eta-expand mrandomR to keep GHC 6.6.1 on birdy happy.
author
Matt McCutchen
<matt@mattmccutchen.net>
Sat, 2 Aug 2008 01:15:18 +0000
(21:15 -0400)
committer
Matt McCutchen
<matt@mattmccutchen.net>
Sat, 2 Aug 2008 01:15:18 +0000
(21:15 -0400)
program/RandomizedMonad.hs
patch
|
blob
|
blame
|
history
diff --git
a/program/RandomizedMonad.hs
b/program/RandomizedMonad.hs
index
b58727c
..
62e8808
100644
(file)
--- a/
program/RandomizedMonad.hs
+++ b/
program/RandomizedMonad.hs
@@
-54,7
+54,8
@@
runRandomNewStd ra = do
mrandom :: Random a => Randomized a
mrandom = Randomized random
mrandomR :: Random a => (a, a) -> Randomized a
-mrandomR lohi = Randomized $ randomR lohi
+-- Eta-expand this one to keep GHC 6.6.1 on birdy happy.
+mrandomR lohi = Randomized (\g -> randomR lohi g)
chooseCase :: Double -> [(Double, a)] -> a -> a
chooseCase val ifCs elseR = case ifCs of