diff options
Diffstat (limited to 'src/PPL/Sampling.hs')
| -rw-r--r-- | src/PPL/Sampling.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/PPL/Sampling.hs b/src/PPL/Sampling.hs index 7c2cb54..d397ca8 100644 --- a/src/PPL/Sampling.hs +++ b/src/PPL/Sampling.hs @@ -1,5 +1,6 @@ {-# LANGUAGE BangPatterns #-} {-# LANGUAGE BlockArguments #-} +{-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE ViewPatterns #-} @@ -12,14 +13,14 @@ where import Control.Monad import Control.Monad.IO.Class import Data.IORef -import qualified Data.Vector.Hashtables as H -import qualified Data.Vector.Unboxed as V +import Data.Vector.Hashtables qualified as H +import Data.Vector.Unboxed qualified as V import Data.Word import Numeric.Log import PPL.Internal import Streaming.Prelude (Of, Stream, yield) import System.Random (StdGen) -import qualified System.Random as R +import System.Random qualified as R mh :: (MonadIO m) => StdGen -> Double -> Meas a -> Stream (Of (a, Log Double)) m () mh g p m = do |
