From 1d2043ffc4a9fee8a19c0dec7b29e2c451f36d68 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 17 Sep 2021 20:00:11 +0200
Subject: [PATCH] Remove unused imports

---
 src/Quasar/Wayland/Client.hs           | 1 -
 src/Quasar/Wayland/Display.hs          | 3 ---
 src/Quasar/Wayland/Protocol.hs         | 2 +-
 src/Quasar/Wayland/Protocol/Display.hs | 1 -
 src/Quasar/Wayland/Protocol/TH.hs      | 1 -
 src/Quasar/Wayland/Registry.hs         | 1 -
 6 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/Quasar/Wayland/Client.hs b/src/Quasar/Wayland/Client.hs
index 9401c94..9544447 100644
--- a/src/Quasar/Wayland/Client.hs
+++ b/src/Quasar/Wayland/Client.hs
@@ -5,7 +5,6 @@ module Quasar.Wayland.Client (
   connectWaylandSocket,
 ) where
 
-import Control.Concurrent.STM
 import Control.Monad.Catch
 import Network.Socket (Socket)
 import Network.Socket qualified as Socket
diff --git a/src/Quasar/Wayland/Display.hs b/src/Quasar/Wayland/Display.hs
index 7130da2..4d8a087 100644
--- a/src/Quasar/Wayland/Display.hs
+++ b/src/Quasar/Wayland/Display.hs
@@ -4,9 +4,6 @@ module Quasar.Wayland.Display (
 ) where
 
 import Control.Concurrent.STM
-import Control.Monad.Catch
-import Data.ByteString.UTF8 qualified as BS
-import Data.HashMap.Strict qualified as HM
 import Quasar.Prelude
 import Quasar.Wayland.Protocol
 import Quasar.Wayland.Protocol.Display
diff --git a/src/Quasar/Wayland/Protocol.hs b/src/Quasar/Wayland/Protocol.hs
index e3cb54d..8f85cf3 100644
--- a/src/Quasar/Wayland/Protocol.hs
+++ b/src/Quasar/Wayland/Protocol.hs
@@ -6,7 +6,7 @@ module Quasar.Wayland.Protocol (
   -- ** Wire types
   ObjectId,
   GenericObjectId,
-  NewId(..),
+  NewId,
   Fixed(..),
 
   -- ** Classes for generated interfaces
diff --git a/src/Quasar/Wayland/Protocol/Display.hs b/src/Quasar/Wayland/Protocol/Display.hs
index 0a0bf17..3b58452 100644
--- a/src/Quasar/Wayland/Protocol/Display.hs
+++ b/src/Quasar/Wayland/Protocol/Display.hs
@@ -2,7 +2,6 @@ module Quasar.Wayland.Protocol.Display (
   clientWlDisplayCallback,
 ) where
 
-import Control.Concurrent.STM
 import Control.Monad.Catch
 import Data.ByteString.UTF8 qualified as BS
 import Data.HashMap.Strict qualified as HM
diff --git a/src/Quasar/Wayland/Protocol/TH.hs b/src/Quasar/Wayland/Protocol/TH.hs
index 14fbc6e..9f27a5f 100644
--- a/src/Quasar/Wayland/Protocol/TH.hs
+++ b/src/Quasar/Wayland/Protocol/TH.hs
@@ -5,7 +5,6 @@ module Quasar.Wayland.Protocol.TH (
 import Control.Monad.Writer
 import Data.ByteString qualified as BS
 import Language.Haskell.TH
---import Language.Haskell.TH.Lib
 import Language.Haskell.TH.Syntax (BangType, addDependentFile)
 import Language.Haskell.TH.Syntax qualified as TH
 import Data.List (intersperse)
diff --git a/src/Quasar/Wayland/Registry.hs b/src/Quasar/Wayland/Registry.hs
index 23555aa..0bb0ef6 100644
--- a/src/Quasar/Wayland/Registry.hs
+++ b/src/Quasar/Wayland/Registry.hs
@@ -7,7 +7,6 @@ import Control.Concurrent.STM
 import Control.Monad.Fix (mfix)
 import Control.Monad.Reader (lift)
 import Data.ByteString qualified as BS
-import Data.ByteString.UTF8 qualified as BS
 import Data.HashMap.Strict qualified as HM
 import Data.Tuple (swap)
 import Quasar.Prelude
-- 
GitLab