[Gtk2hs-commit] gtk2hs/gtk/treeList StoreValue.hsc,1.7,1.8 TreeSelection.chs,1.11,1.12 TreeView.chs.pp,1.1,1.2

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/treeList
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28179/gtk/treeList

Modified Files:
	StoreValue.hsc TreeSelection.chs TreeView.chs.pp 
Log Message:
Change some import modules to use modern hierarchical modules so we no longer
need the LocalData or LocalControl modules, nor the data or lang packages.

This should still work all the way back to ghc 5.04.x, though it needs testing.


Index: TreeSelection.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/treeList/TreeSelection.chs,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- TreeSelection.chs	10 Aug 2004 14:51:48 -0000	1.11
+++ TreeSelection.chs	9 Dec 2004 18:26:02 -0000	1.12
@@ -59,7 +59,7 @@
   ) where
 
 import Monad	(liftM)
-import LocalData(newIORef, readIORef, writeIORef)
+import Data.IORef (newIORef, readIORef, writeIORef)
 import FFI
 
 import Object	(makeNewObject)

Index: StoreValue.hsc
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/treeList/StoreValue.hsc,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- StoreValue.hsc	23 May 2004 16:16:43 -0000	1.7
+++ StoreValue.hsc	9 Dec 2004 18:26:02 -0000	1.8
@@ -34,7 +34,7 @@
 import GValue	(GValue, GenericValue(..), valueInit)
 import GValueTypes
 import GType	(GType)
-import LocalControl	(throw, Exception(AssertionFailed))
+import Control.Exception  (throw, Exception(AssertionFailed))
 
 #include <glib-object.h>
 

Index: TreeView.chs.pp
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/treeList/TreeView.chs.pp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- TreeView.chs.pp	21 Nov 2004 15:06:16 -0000	1.1
+++ TreeView.chs.pp	9 Dec 2004 18:26:02 -0000	1.2
@@ -144,7 +144,7 @@
 
 import Monad	(liftM, mapM)
 import Maybe	(fromMaybe)
-import LocalData(newIORef, readIORef, writeIORef)
+import Data.IORef (newIORef, readIORef, writeIORef)
 import FFI
 
 import General	(mkDestructor)