From eaf2be9bbcf1b0597a52b14d28e0252ec4714bee Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 12 Sep 2022 02:36:42 +0100 Subject: wee refactoring: a couple type synonyms --- src/Xmobar/X11/CairoDraw.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Xmobar/X11/CairoDraw.hs') diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs index 714041d..c258509 100644 --- a/src/Xmobar/X11/CairoDraw.hs +++ b/src/Xmobar/X11/CairoDraw.hs @@ -32,17 +32,15 @@ import qualified Data.Colour.Names as CNames import qualified Data.Colour.RGBSpace as RGBS import Xmobar.Run.Parsers (Segment, Widget(..), colorComponents, tColorsString) -import Xmobar.Run.Actions (Action) import Xmobar.Config.Types import Xmobar.Text.Pango (fixXft) import Xmobar.X11.Types import qualified Xmobar.X11.Bitmap as B import Xmobar.X11.CairoSurface -type ActionPos = ([Action], Position, Position) -type Actions = [ActionPos] type Renderinfo = (Segment, Surface -> Double -> IO (), Double) type BitmapDrawer = Double -> Double -> String -> IO () +type Actions = [ActionPos] data DrawContext = DC { dcBitmapDrawer :: BitmapDrawer , dcBitmapLookup :: String -> Maybe B.Bitmap -- cgit v1.2.3