From: Matt McCutchen <matt@mattmccutchen.net>
Date: Sat, 2 Aug 2008 01:15:18 +0000 (-0400)
Subject: Eta-expand mrandomR to keep GHC 6.6.1 on birdy happy.
X-Git-Url: https://mattmccutchen.net/match/match.git/commitdiff_plain/e42ffb752c2f93342a84239b552ca062afffefd3

Eta-expand mrandomR to keep GHC 6.6.1 on birdy happy.
---

diff --git a/program/RandomizedMonad.hs b/program/RandomizedMonad.hs
index b58727c..62e8808 100644
--- 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