From e42ffb752c2f93342a84239b552ca062afffefd3 Mon Sep 17 00:00:00 2001 From: Matt McCutchen Date: Fri, 1 Aug 2008 21:15:18 -0400 Subject: [PATCH] Eta-expand mrandomR to keep GHC 6.6.1 on birdy happy. --- program/RandomizedMonad.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.34.1