From 57eb321eaeabc53c8c8b83d0554d8a8cca6eed76 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 10 Nov 2025 21:57:54 +0100 Subject: Use ImportQualifiedPost --- src/CHAD/Compile.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/CHAD/Compile.hs') diff --git a/src/CHAD/Compile.hs b/src/CHAD/Compile.hs index 5b71651..38bef8c 100644 --- a/src/CHAD/Compile.hs +++ b/src/CHAD/Compile.hs @@ -2,6 +2,7 @@ {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE MultiWayIf #-} @@ -20,16 +21,16 @@ import Data.Bifunctor (first) import Data.Char (ord) import Data.Foldable (toList) import Data.Functor.Const -import qualified Data.Functor.Product as Product +import Data.Functor.Product qualified as Product import Data.Functor.Product (Product) import Data.IORef import Data.List (foldl1', intersperse, intercalate) -import qualified Data.Map.Strict as Map +import Data.Map.Strict qualified as Map import Data.Maybe (fromMaybe) -import qualified Data.Set as Set +import Data.Set qualified as Set import Data.Set (Set) import Data.Some -import qualified Data.Vector as V +import Data.Vector qualified as V import Foreign import GHC.Exts (int2Word#, addr2Int#) import GHC.Num (integerFromWord#) @@ -41,7 +42,7 @@ import System.IO.Error (mkIOError, userErrorType) import System.IO.Unsafe (unsafePerformIO) import Prelude hiding ((^)) -import qualified Prelude +import Prelude qualified import CHAD.Array import CHAD.AST @@ -50,7 +51,7 @@ import CHAD.AST.Sparse.Types (isDense) import CHAD.Compile.Exec import CHAD.Data import CHAD.Interpreter.Rep -import qualified CHAD.Util.IdGen as IdGen +import CHAD.Util.IdGen qualified as IdGen -- In shape and index arrays, the innermost dimension is on the right (last index). -- cgit v1.2.3-70-g09d2