blob: c5846afe9bf6a8089ef7953e0e2ff8174959d8c2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
implementation module Gtk.Tune
import Control.Applicative
import Control.Monad
import Control.Monad.Identity
import Control.Monad.State
import Gtk
instance tune w GtkMargins | gtkWidget w
where
tune widgetf margins =
widgetf >>= \widget ->
setMargins margins widget >>|
pure widget
instance tune w GtkCSSClass | gtkWidget w
where
tune widgetf cls =
widgetf >>= \widget ->
addCSSClass cls widget >>|
pure widget
|
