diff options
| author | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
| commit | eaf2be9bbcf1b0597a52b14d28e0252ec4714bee (patch) | |
| tree | f638f5c7fdd177fef94d34ee961a6797f035e15b /src/Xmobar/X11/CairoDraw.hs | |
| parent | 7e72fe0bc695b1d69ea58d2f28c014aaae6ee613 (diff) | |
| download | xmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.gz xmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.bz2 | |
wee refactoring: a couple type synonyms
Diffstat (limited to 'src/Xmobar/X11/CairoDraw.hs')
| -rw-r--r-- | src/Xmobar/X11/CairoDraw.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |