From 5ed6e2a148acba7702f383b15077e488eff108b7 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Thu, 8 Jan 2026 10:33:47 +1100
Subject: add HLS and switch to qualified post

---
 src/PPL/Sampling.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/PPL/Sampling.hs')

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
-- 
cgit v1.2.3