diff options
| -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) |