[Gtk2hs-commit] gtk2hs/sourceview/Graphics/UI/Gtk/SourceView SourceTagTable.chs,1.1,1.2

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

Update of /cvsroot/gtk2hs/gtk2hs/sourceview/Graphics/UI/Gtk/SourceView
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26467/sourceview/Graphics/UI/Gtk/SourceView

Modified Files:
	SourceTagTable.chs 
Log Message:
Change use of foreignPtrToPtr to unsafeForeignPtrToPtr and provide backwards
compatability for GHC pre-6.2.


Index: SourceTagTable.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/sourceview/Graphics/UI/Gtk/SourceView/SourceTagTable.chs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- SourceTagTable.chs	8 Jan 2005 16:05:07 -0000	1.1
+++ SourceTagTable.chs	8 Apr 2005 14:00:49 -0000	1.2
@@ -55,8 +55,8 @@
 -- 
 sourceTagTableAddTags :: SourceTagTable -> [SourceTag] -> IO ()
 sourceTagTableAddTags tt tags = do
-  let tagForeignPtrs = map (unSourceTag . toSourceTag) tags
-  tagList <- toGSList (map foreignPtrToPtr tagForeignPtrs)
+  let tagForeignPtrs = map unSourceTag tags
+  tagList <- toGSList (map unsafeForeignPtrToPtr tagForeignPtrs)
   {#call source_tag_table_add_tags#} tt tagList
   -- destroy the list
   fromGSList tagList