Apply ImportQualifiedPost transformation

qbar/src/QBar/BlockHelper.hs

@@ -23,7 +23,7 @@ import QBar.Prelude
 import QBar.Time
 
 import Control.Concurrent.Async
-import qualified Control.Concurrent.Event as Event
+import Control.Concurrent.Event qualified as Event
 import Control.Concurrent.STM.TChan
 import Control.Concurrent.STM.TVar
 import Control.Monad.Reader (ReaderT)

qbar/src/QBar/BlockOutput.hs

@@ -45,7 +45,7 @@ import QBar.Prelude
 import Control.Lens
 import Data.Aeson
 import Data.Int (Int64)
-import qualified Data.Text.Lazy as T
+import Data.Text.Lazy qualified as T
 import GHC.Generics
 
 

qbar/src/QBar/Blocks.hs

@@ -12,11 +12,11 @@ module QBar.Blocks (
   QBar.Blocks.Squeekboard.squeekboardBlock,
 ) where
 
-import qualified QBar.Blocks.Battery
-import qualified QBar.Blocks.CpuUsage
-import qualified QBar.Blocks.Date
-import qualified QBar.Blocks.DiskUsage
-import qualified QBar.Blocks.NetworkManager
-import qualified QBar.Blocks.Qubes
-import qualified QBar.Blocks.Script
-import qualified QBar.Blocks.Squeekboard
+import QBar.Blocks.Battery qualified
+import QBar.Blocks.CpuUsage qualified
+import QBar.Blocks.Date qualified
+import QBar.Blocks.DiskUsage qualified
+import QBar.Blocks.NetworkManager qualified
+import QBar.Blocks.Qubes qualified
+import QBar.Blocks.Script qualified
+import QBar.Blocks.Squeekboard qualified

qbar/src/QBar/Blocks/Battery.hs

@@ -10,8 +10,8 @@ import QBar.Prelude
 
 import Control.Lens
 import Data.Maybe (catMaybes, mapMaybe)
-import qualified Data.Text.Lazy as T
-import qualified Data.Text.Lazy.IO as TIO
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.IO qualified as TIO
 import System.Directory
 
 data BatteryStatus = BatteryCharging | BatteryDischarging | BatteryOther

qbar/src/QBar/Blocks/CpuUsage.hs

@@ -13,8 +13,8 @@ import QBar.Prelude
 import Control.Applicative ((<|>))
 import Control.Lens
 import Control.Monad.State (StateT, evalStateT, lift)
-import qualified Data.Attoparsec.Text.Lazy as AT
-import qualified Data.Text.Lazy as T
+import Data.Attoparsec.Text.Lazy qualified as AT
+import Data.Text.Lazy qualified as T
 
 {-
   For time accounting the guest fields need to be ignored according to the kernel source code

qbar/src/QBar/Blocks/Date.hs

@@ -8,9 +8,9 @@ import QBar.Core
 import QBar.Prelude
 import QBar.Time
 
-import qualified Data.Text.Lazy as T
 import Data.Time.Format
 import Data.Time.LocalTime
+import Data.Text.Lazy qualified as T
 
 
 dateBlock :: Block

qbar/src/QBar/Blocks/DiskUsage.hs

@@ -7,9 +7,9 @@ import QBar.BlockOutput
 import QBar.Core
 import QBar.Prelude
 
-import qualified Data.ByteString.Lazy.Char8 as C8
-import qualified Data.Text.Lazy as T
-import qualified Data.Text.Lazy.Encoding as T
+import Data.ByteString.Lazy.Char8 qualified as C8
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.Encoding qualified as T
 import System.Exit
 import System.Process.Typed (shell, readProcessStdout)
 

qbar/src/QBar/Blocks/NetworkManager.hs

@@ -5,10 +5,10 @@ module QBar.Blocks.NetworkManager (
 ) where
 
 import Control.Monad.Except (ExceptT, MonadError, runExceptT, throwError)
-import qualified DBus
-import qualified DBus.Client as DBus
-import qualified Data.Map as Map
-import qualified Data.Text.Lazy as T
+import DBus qualified
+import DBus.Client qualified as DBus
+import Data.Map qualified as Map
+import Data.Text.Lazy qualified as T
 import Data.Word (Word32, Word8)
 import QBar.BlockHelper
 import QBar.BlockOutput

qbar/src/QBar/Blocks/Pipe.hs

@@ -9,11 +9,11 @@ import QBar.TagParser
 
 import Control.Concurrent.Async
 import Data.Aeson (encode)
-import qualified Data.ByteString.Lazy.Char8 as BSC
-import qualified Data.Text.Lazy as T
+import Data.ByteString.Lazy.Char8 qualified as BSC
+import Data.Text.Lazy qualified as T
 import Pipes
 import Pipes.Concurrent
-import qualified Pipes.Prelude as PP
+import Pipes.Prelude qualified as PP
 import System.IO
 
 runPipeClient :: Bool -> MainOptions -> IO ()

qbar/src/QBar/Blocks/Qubes.hs

@@ -8,13 +8,24 @@ import QBar.BlockHelper
 import QBar.BlockOutput
 import QBar.Core
 import QBar.Prelude
-import QBar.Qubes.AdminAPI (qubesUsageOfDefaultPool, qubesMonitorProperty, qubesGetProperty, qubesEvents, QubesPropertyInfo (..), qubesListVMs, qubesListVMsP, QubesVMState (..), vmState)
+import QBar.Qubes.AdminAPI (
+  QubesPropertyInfo(..),
+  QubesVMState(..),
+  QubesVMInfo(..),
+  qubesEvents,
+  qubesGetProperty,
+  qubesListVMs,
+  qubesListVMsP,
+  qubesMonitorProperty,
+  qubesUsageOfDefaultPool,
+  vmState,
+  )
 
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Map as M
-import qualified Data.Text.Lazy as T
-import Data.Text.Lazy.Encoding (decodeUtf8With)
+import Data.ByteString.Lazy qualified as BL
+import Data.Map qualified as M
 import Data.Text.Encoding.Error (lenientDecode)
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.Encoding (decodeUtf8With)
 import Pipes as P
 import Pipes.Core as P
 

qbar/src/QBar/Blocks/Script.hs

@@ -10,21 +10,34 @@ import QBar.Prelude
 import QBar.TagParser
 import QBar.Time
 
-import Control.Exception (IOException, handle)
 import Control.Concurrent (threadDelay)
 import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar)
+import Control.Exception (IOException, handle)
 import Data.Aeson (encode)
-import qualified Data.ByteString.Lazy.Char8 as C8
-import qualified Data.Text.Lazy as T
-import qualified Data.Text.Lazy.Encoding as E
-import qualified Data.Text.Lazy.IO as TIO
+import Data.ByteString.Lazy.Char8 qualified as C8
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.Encoding qualified as E
+import Data.Text.Lazy.IO qualified as TIO
 import Pipes
 import Pipes.Safe (catchP)
 import System.Exit
 import System.IO hiding (stdin, stdout)
 import System.IO.Error (isEOFError)
-import System.Process.Typed (Process, shell, setStdin, setStdout,
-  getStdin, getStdout, closed, createPipe, readProcessStdout, startProcess, stopProcess, getExitCode)
+import System.Process.Typed (
+  Process,
+  ProcessConfig,
+  closed,
+  createPipe,
+  getExitCode,
+  getStdin,
+  getStdout,
+  readProcessStdout,
+  setStdin,
+  setStdout,
+  shell,
+  startProcess,
+  stopProcess,
+  )
 
 
 pollScriptBlock :: Interval -> FilePath -> Block

qbar/src/QBar/Blocks/Squeekboard.hs

@@ -2,18 +2,19 @@ module QBar.Blocks.Squeekboard (
   squeekboardBlock,
 ) where
 
-import Control.Monad.Except (MonadError)
-import Data.Either (isRight)
-import qualified DBus
-import qualified DBus.Client as DBus
-import DBus.Internal.Message (signalBody)
-import Pipes.Core
 import QBar.BlockHelper
 import QBar.BlockOutput
 import QBar.Blocks.NetworkManager (getDBusProperty, runExceptT_)
 import QBar.Core
 import QBar.Prelude
 
+import Control.Monad.Except (MonadError)
+import DBus qualified
+import DBus.Client qualified as DBus
+import DBus.Internal.Message (signalBody)
+import Data.Either (isRight)
+import Pipes.Core
+
 squeekboardBlock :: Bool -> Block
 squeekboardBlock autoHide = runSignalBlockConfiguration $ SignalBlockConfiguration {
   aquire,

qbar/src/QBar/Blocks/Utils.hs

@@ -9,9 +9,9 @@ module QBar.Blocks.Utils (
 import QBar.Prelude
 
 import Control.Exception (SomeException, catch)
-import qualified Data.Attoparsec.Text.Lazy as AT
-import qualified Data.Text.Lazy as T
-import qualified Data.Text.Lazy.IO as TIO
+import Data.Attoparsec.Text.Lazy qualified as AT
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.IO qualified as TIO
 import Numeric (showFFloat)
 
 formatFloatN :: RealFloat a => Int -> a -> T.Text

qbar/src/QBar/Cli.hs

@@ -10,14 +10,14 @@ import QBar.ControlSocket
 import QBar.Core
 import QBar.DefaultConfig
 import QBar.Prelude
+import QBar.Qubes.AdminAPI (printEvents, qubesVMStats, qubesEvents)
 import QBar.Server
 import QBar.Theme
 import QBar.Time
-import QBar.Qubes.AdminAPI (printEvents, qubesVMStats, qubesEvents)
 
 import Control.Monad (join)
 import Data.Maybe (fromMaybe)
-import qualified Data.Text.Lazy as T
+import Data.Text.Lazy qualified as T
 import Development.GitRev
 import Options.Applicative
 

qbar/src/QBar/Color.hs

@@ -7,11 +7,12 @@ module QBar.Color (
 import QBar.Prelude
 
 import Data.Aeson
+import Data.Aeson.Types qualified as AT
+import Data.Attoparsec.Text.Lazy as A
 import Data.Bits ((.|.), shiftL)
 import Data.Char (ord)
-import Data.Attoparsec.Text.Lazy as A
 import Data.Colour.RGBSpace
-import qualified Data.Text.Lazy as T
+import Data.Text.Lazy qualified as T
 import Numeric (showHex)
 
 data Color = ColorRGB (RGB Double) | ColorRGBA (RGB Double) Double

qbar/src/QBar/ControlSocket.hs

@@ -24,22 +24,22 @@ import Control.Concurrent (forkFinally)
 import Control.Concurrent.Async
 import Control.Exception (SomeException, IOException, handle, onException)
 import Data.Aeson (FromJSON, ToJSON)
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Char8 as BSC
+import Data.ByteString qualified as BS
+import Data.ByteString.Char8 qualified as BSC
 import Data.Text.Lazy (pack)
+import Data.Text.Lazy qualified as T
+import Data.Text.Lazy.IO qualified as T
 import Data.Time.Clock (getCurrentTime, addUTCTime)
-import qualified Data.Text.Lazy as T
-import qualified Data.Text.Lazy.IO as T
 import GHC.Generics
 import Network.Socket
 import Pipes
-import Pipes.Concurrent as PC (Output, spawn, spawn', unbounded, newest, toOutput, fromInput, send, atomically)
-import Pipes.Parse
-import qualified Pipes.Prelude as PP
-import Pipes.Safe (catch)
 import Pipes.Aeson (decode, DecodingError)
 import Pipes.Aeson.Unchecked (encode)
+import Pipes.Concurrent as PC (Output, spawn, spawn', unbounded, newest, toOutput, fromInput, send, atomically)
 import Pipes.Network.TCP (fromSocket, toSocket)
+import Pipes.Parse
+import Pipes.Prelude qualified as PP
+import Pipes.Safe (catch)
 import System.Directory (removeFile, doesFileExist)
 import System.Environment (getEnv)
 import System.Exit (exitSuccess)

qbar/src/QBar/Core.hs

@@ -47,7 +47,7 @@ import QBar.Time
 import QBar.Utils
 
 import Control.Concurrent.Async
-import qualified Control.Concurrent.Event as Event
+import Control.Concurrent.Event qualified as Event
 import Control.Concurrent.MVar
 import Control.Concurrent.STM.TChan
 import Control.Lens
@@ -57,12 +57,12 @@ import Control.Monad.Writer (WriterT)
 import Data.Aeson
 import Data.Int (Int64)
 import Data.Maybe (fromMaybe)
-import qualified Data.Text.Lazy as T
+import Data.Text.Lazy qualified as T
 import GHC.Generics
 import Pipes
 import Pipes.Concurrent
+import Pipes.Prelude qualified as PP
 import Pipes.Safe (SafeT, runSafeT)
-import qualified Pipes.Prelude as PP
 
 data MainOptions = MainOptions {
   verbose :: Bool,

qbar/src/QBar/Host.hs

@@ -18,7 +18,7 @@ import QBar.Utils
 
 import Control.Concurrent (forkIO, forkFinally, threadDelay)
 import Control.Concurrent.Async (async, wait, waitAny)
-import qualified Control.Concurrent.Event as Event
+import Control.Concurrent.Event qualified as Event
 import Control.Concurrent.MVar
 import Control.Concurrent.STM.TChan
 import Control.Exception (SomeException, catch, fromException)
@@ -26,7 +26,7 @@ import Control.Lens hiding (each, (.=))
 import Control.Monad.STM (atomically)
 import Data.IORef (IORef, newIORef, readIORef, writeIORef)
 import Data.Maybe (catMaybes, mapMaybe)
-import qualified Data.Text.Lazy as T
+import Data.Text.Lazy qualified as T
 import Pipes
 import Pipes.Concurrent (spawn, unbounded, toOutput, fromInput)
 import System.Exit (ExitCode, exitWith)

qbar/src/QBar/Prelude.hs

@@ -33,15 +33,15 @@ import Prelude hiding
     head,
     undefined,
   )
-import qualified Prelude as P
-import qualified Control.Monad
 import Control.Monad ((>=>), (<=<))
-import qualified Control.Monad.IO.Class
-import qualified Data.ByteString as ByteString
-import qualified Data.Maybe as Maybe
-import qualified Data.Text.Lazy as Text
-import qualified Debug.Trace as Trace
-import qualified GHC.Stack.Types
+import Control.Monad qualified
+import Control.Monad.IO.Class qualified
+import Data.ByteString qualified as ByteString
+import Data.Maybe qualified as Maybe
+import Data.Text.Lazy qualified as Text
+import Debug.Trace qualified as Trace
+import GHC.Stack.Types
+import Prelude qualified as P
 
 {-# DEPRECATED head "Partial Function." #-}
 head :: [a] -> a

qbar/src/QBar/Qubes/AdminAPI.hs

@@ -21,18 +21,18 @@ import Control.Monad (forM_, guard)
 import Data.Binary
 import Data.Binary.Get
 import Data.Binary.Put
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.ByteString.Lazy.Char8 as BLC
+import Data.ByteString qualified as BS
+import Data.ByteString.Lazy qualified as BL
+import Data.ByteString.Lazy.Char8 qualified as BLC
 import Data.Char (isAlphaNum)
 import Data.Function ((&))
-import qualified Data.Map as Map
+import Data.Map qualified as Map
 import Data.Maybe (fromMaybe)
 import Network.HostName
 import Numeric (showHex, readHex)
 import Pipes
-import qualified Pipes.Prelude as P
-import qualified Pipes.Safe as P
+import Pipes.Prelude qualified as P
+import Pipes.Safe qualified as P
 import System.IO (Handle, hSetBinaryMode)
 import System.Process.Typed
 import Text.Read (readMaybe)