diff options
Diffstat (limited to 'src/Gtk/Tune.icl')
-rw-r--r-- | src/Gtk/Tune.icl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Gtk/Tune.icl b/src/Gtk/Tune.icl index d04d691..a275ea2 100644 --- a/src/Gtk/Tune.icl +++ b/src/Gtk/Tune.icl @@ -7,18 +7,6 @@ import Control.Monad import Gtk -instance tune elem (oa,ob) | tune elem oa & tune elem ob -where - tune (a,b) elem = tune a elem >>= tune b - -instance tune elem (oa,ob,oc) | tune elem oa & tune elem ob & tune elem oc -where - tune (a,b,c) elem = tune a elem >>= tune b >>= tune c - -instance tune elem (oa,ob,oc,od) | tune elem oa & tune elem ob & tune elem oc & tune elem od -where - tune (a,b,c,d) elem = tune a elem >>= tune b >>= tune c >>= tune d - (<<@) infixl 2 :: !(GtkM elem) !option -> GtkM elem | tune elem option (<<@) elemf option = elemf >>= tune option |