From d0fd06d39ad6f484c620c23d05582471d345fb52 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 29 Oct 2019 22:20:24 +0100
Subject: Export Shared type to allow to share it itself

---
 src/Gtk/Shares.dcl | 3 ++-
 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)
 
-- 
cgit v1.2.3