From 4b4c9fe0a8849fad124a2f75e815e648dafd4969 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 20 Sep 2022 05:41:27 +0100
Subject: new namespace: Xmobar.Draw

---
 src/Xmobar/X11/Types.hs | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

(limited to 'src/Xmobar/X11/Types.hs')

diff --git a/src/Xmobar/X11/Types.hs b/src/Xmobar/X11/Types.hs
index 309b6bf..e880cc0 100644
--- a/src/Xmobar/X11/Types.hs
+++ b/src/Xmobar/X11/Types.hs
@@ -23,9 +23,8 @@ import qualified Data.List.NonEmpty as NE
 import Control.Monad.Reader (ReaderT)
 
 import Xmobar.Config.Types
-import Xmobar.Run.Actions (Action)
-import Xmobar.Run.Parsers (Segment)
-import Xmobar.X11.Bitmap (Bitmap, BitmapCache)
+
+import Xmobar.X11.Bitmap (BitmapCache)
 import Xmobar.X11.Text (XFont)
 
 -- | The X type is a ReaderT
@@ -40,16 +39,3 @@ data XConf =
           , iconCache :: BitmapCache
           , config    :: Config
           }
-
-type ActionPos = ([Action], X11.Position, X11.Position)
-type Actions = [ActionPos]
-
-type BitmapDrawer = Double -> Double -> String -> IO ()
-
-data DrawContext = DC { dcBitmapDrawer :: BitmapDrawer
-                      , dcBitmapLookup :: String -> Maybe Bitmap
-                      , dcConfig :: Config
-                      , dcWidth :: Double
-                      , dcHeight :: Double
-                      , dcSegments :: [[Segment]]
-                      }
-- 
cgit v1.2.3