[Gtk2hs-commit] gtk2hs/tools/c2hs/base/errors Errors.hs,1.1.1.1,1.2

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

Update of /cvsroot/gtk2hs/gtk2hs/tools/c2hs/base/errors
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15642/base/errors

Modified Files:
	Errors.hs 
Log Message:
add Axel's --precomp patches with a binary serialisation framework derived from
the one used in ghc. This required makeing Position a proper data type.
Also converted to using Data.FiniteMap rather than the CTK FiniteMaps module.


Index: Errors.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/c2hs/base/errors/Errors.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Errors.hs	13 Nov 2004 16:42:47 -0000	1.1.1.1
+++ Errors.hs	13 Nov 2004 17:26:50 -0000	1.2
@@ -42,7 +42,7 @@
 ) where
 
 import Config (assertEnabled)
-import Common (Position, isInternalPos)
+import Common (Position(Position), isInternalPos)
 import Utils  (indentMultilineString)
 
 
@@ -128,7 +128,7 @@
   "INTERNAL ERROR!\n" 
   ++ "  >>> " ++ l ++ "\n"
   ++ (indentMultilineString 2 . unlines) ls  
-showError (Error lvl (fname, row, col) (l:ls))  =
+showError (Error lvl (Position fname row col) (l:ls))  =
   let
     prefix = fname ++ ":" ++ show (row::Int) ++ ": "
 	     ++ "(column "