18 lines
413 B
Haskell
18 lines
413 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Control.Monad.Trans.Random.Instances
|
|
() where
|
|
|
|
-- import ClassyPrelude
|
|
import qualified Control.Monad.Trans.Random.Strict as Strict
|
|
import qualified Control.Monad.Trans.Random.Lazy as Lazy
|
|
|
|
import Control.Monad.Morph (MFunctor(..))
|
|
|
|
|
|
instance MFunctor (Strict.RandT g) where
|
|
hoist = Strict.mapRandT
|
|
|
|
instance MFunctor (Lazy.RandT g) where
|
|
hoist = Lazy.mapRandT
|