diff options
| author | Camil Staps | 2019-10-29 22:20:24 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-29 22:20:24 +0100 |
| commit | d0fd06d39ad6f484c620c23d05582471d345fb52 (patch) | |
| tree | b62e149f04263590986077a97fb1915cc917bfd7 | |
| parent | Add GtkSearchEntry (diff) | |
Export Shared type to allow to share it itself
| -rw-r--r-- | src/Gtk/Shares.dcl | 3 | ||||
| -rw-r--r-- | src/Gtk/Shares.icl | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/Gtk/Shares.dcl b/src/Gtk/Shares.dcl index 81dccdf..d1e5556 100644 --- a/src/Gtk/Shares.dcl +++ b/src/Gtk/Shares.dcl @@ -4,7 +4,8 @@ from Gtk.State import :: GtkM :: ShareId :== String -:: Shared a +//* Exported to have a TC instance -- do not use directly! +:: Shared a :== (String,a) class shared a | TC a diff --git a/src/Gtk/Shares.icl b/src/Gtk/Shares.icl index 4dbfecc..adfd000 100644 --- a/src/Gtk/Shares.icl +++ b/src/Gtk/Shares.icl @@ -10,8 +10,6 @@ import qualified Data.Map import Gtk -:: Shared a :== (String,a) - share :: !ShareId a -> Shared a | shared a share id default = (id,default) |