From ade51215d7512def8f6741ed2cb56b7e244104dc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Manuel=20B=C3=A4renz?= Date: Tue, 26 Mar 2024 09:49:57 +0100 Subject: [PATCH] Move ImportQualifiedPost --- rhine/rhine.cabal | 1 + rhine/src/FRP/Rhine/ClSF/Except.hs | 4 ++-- rhine/src/FRP/Rhine/ClSF/Random.hs | 2 +- rhine/src/FRP/Rhine/ClSF/Reader.hs | 2 +- rhine/src/FRP/Rhine/ClSF/Util.hs | 2 +- rhine/src/FRP/Rhine/Clock.hs | 2 +- rhine/src/FRP/Rhine/Clock/Except.hs | 2 -- rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs | 4 ++-- rhine/src/FRP/Rhine/Clock/Unschedule.hs | 2 +- rhine/src/FRP/Rhine/Schedule.hs | 2 +- 10 files changed, 11 insertions(+), 12 deletions(-) diff --git a/rhine/rhine.cabal b/rhine/rhine.cabal index aa9e2dfa..93105d6f 100644 --- a/rhine/rhine.cabal +++ b/rhine/rhine.cabal @@ -60,6 +60,7 @@ common opts DataKinds FlexibleContexts FlexibleInstances + ImportQualifiedPost MultiParamTypeClasses NamedFieldPuns NoStarIsType diff --git a/rhine/src/FRP/Rhine/ClSF/Except.hs b/rhine/src/FRP/Rhine/ClSF/Except.hs index 0d3ba240..f358db7c 100644 --- a/rhine/src/FRP/Rhine/ClSF/Except.hs +++ b/rhine/src/FRP/Rhine/ClSF/Except.hs @@ -20,7 +20,7 @@ module FRP.Rhine.ClSF.Except ( where -- base -import qualified Control.Category as Category +import Control.Category qualified as Category -- transformers import Control.Monad.Trans.Class (lift) @@ -32,7 +32,7 @@ import Control.Monad.Trans.MSF.Except hiding (once, once_, throwOn, throwOn', th import Data.MonadicStreamFunction -- TODO Find out whether there is a cleverer way to handle exports -import qualified Control.Monad.Trans.MSF.Except as MSFE +import Control.Monad.Trans.MSF.Except qualified as MSFE -- rhine import FRP.Rhine.ClSF.Core diff --git a/rhine/src/FRP/Rhine/ClSF/Random.hs b/rhine/src/FRP/Rhine/ClSF/Random.hs index e4d06629..ca464d7e 100644 --- a/rhine/src/FRP/Rhine/ClSF/Random.hs +++ b/rhine/src/FRP/Rhine/ClSF/Random.hs @@ -21,7 +21,7 @@ import Control.Monad.Random -- dunai import Control.Monad.Trans.MSF.Except (performOnFirstSample) import Control.Monad.Trans.MSF.Random as X hiding (evalRandS, getRandomRS, getRandomRS_, getRandomS, runRandS) -import qualified Control.Monad.Trans.MSF.Random as MSF +import Control.Monad.Trans.MSF.Random qualified as MSF -- rhine import FRP.Rhine.ClSF.Core diff --git a/rhine/src/FRP/Rhine/ClSF/Reader.hs b/rhine/src/FRP/Rhine/ClSF/Reader.hs index 5e5f0fbd..20a8db48 100644 --- a/rhine/src/FRP/Rhine/ClSF/Reader.hs +++ b/rhine/src/FRP/Rhine/ClSF/Reader.hs @@ -14,7 +14,7 @@ import Data.Tuple (swap) import Control.Monad.Trans.Reader -- dunai -import qualified Control.Monad.Trans.MSF.Reader as MSF +import Control.Monad.Trans.MSF.Reader qualified as MSF -- rhine import FRP.Rhine.ClSF.Core diff --git a/rhine/src/FRP/Rhine/ClSF/Util.hs b/rhine/src/FRP/Rhine/ClSF/Util.hs index fe28061c..ccf4171b 100644 --- a/rhine/src/FRP/Rhine/ClSF/Util.hs +++ b/rhine/src/FRP/Rhine/ClSF/Util.hs @@ -15,7 +15,7 @@ module FRP.Rhine.ClSF.Util where -- base import Control.Arrow import Control.Category (Category) -import qualified Control.Category (id) +import Control.Category qualified (id) import Data.Maybe (fromJust) import Data.Monoid (Last (Last), getLast) diff --git a/rhine/src/FRP/Rhine/Clock.hs b/rhine/src/FRP/Rhine/Clock.hs index b4891813..1f3a3fb6 100644 --- a/rhine/src/FRP/Rhine/Clock.hs +++ b/rhine/src/FRP/Rhine/Clock.hs @@ -22,7 +22,7 @@ module FRP.Rhine.Clock ( where -- base -import qualified Control.Category as Category +import Control.Category qualified as Category -- transformers import Control.Monad.IO.Class (MonadIO, liftIO) diff --git a/rhine/src/FRP/Rhine/Clock/Except.hs b/rhine/src/FRP/Rhine/Clock/Except.hs index b925d7b9..0b11d18c 100644 --- a/rhine/src/FRP/Rhine/Clock/Except.hs +++ b/rhine/src/FRP/Rhine/Clock/Except.hs @@ -1,5 +1,3 @@ -{-# LANGUAGE ImportQualifiedPost #-} - module FRP.Rhine.Clock.Except where -- base diff --git a/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs b/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs index 0ee62788..e19056cc 100644 --- a/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs +++ b/rhine/src/FRP/Rhine/Clock/Realtime/Stdin.hs @@ -16,8 +16,8 @@ import Data.Time.Clock import Control.Monad.IO.Class -- text -import qualified Data.Text as Text -import qualified Data.Text.IO as Text +import Data.Text qualified as Text +import Data.Text.IO qualified as Text -- rhine import FRP.Rhine.Clock diff --git a/rhine/src/FRP/Rhine/Clock/Unschedule.hs b/rhine/src/FRP/Rhine/Clock/Unschedule.hs index 4dafea72..d0c56c5f 100644 --- a/rhine/src/FRP/Rhine/Clock/Unschedule.hs +++ b/rhine/src/FRP/Rhine/Clock/Unschedule.hs @@ -5,7 +5,7 @@ module FRP.Rhine.Clock.Unschedule where -- base -import qualified Control.Concurrent as Concurrent (yield) +import Control.Concurrent qualified as Concurrent (yield) import Control.Monad.IO.Class -- monad-schedule diff --git a/rhine/src/FRP/Rhine/Schedule.hs b/rhine/src/FRP/Rhine/Schedule.hs index 1bf028d4..3026bd87 100644 --- a/rhine/src/FRP/Rhine/Schedule.hs +++ b/rhine/src/FRP/Rhine/Schedule.hs @@ -18,7 +18,7 @@ module FRP.Rhine.Schedule where -- base import Data.List.NonEmpty (NonEmpty (..)) -import qualified Data.List.NonEmpty as N +import Data.List.NonEmpty qualified as N -- dunai import Data.MonadicStreamFunction