[hoc-cvs] hoc/InterfaceGenerator Headers.hs,1.5,1.6

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/InterfaceGenerator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11498/InterfaceGenerator

Modified Files:
	Headers.hs 
Log Message:
Fix indentation in Headers.stripPreprocessor


Index: Headers.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/InterfaceGenerator/Headers.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Headers.hs	18 Apr 2005 01:37:22 -0000	1.5
+++ Headers.hs	3 Aug 2005 01:52:03 -0000	1.6
@@ -17,12 +17,12 @@
 
 stripPreprocessor = unlines . stripPP . lines
     where
-		stripPP (x@('#':_) : xs) = dropPreprocessorLine x xs
-		stripPP (x : xs) = x : stripPP xs
-		stripPP [] = []
-		dropPreprocessorLine x xs
-			| last x == '\\' = "" : dropPreprocessorLine (head xs) (tail xs)
-			| otherwise = "" : stripPP xs
+        stripPP (x@('#':_) : xs) = dropPreprocessorLine x xs
+        stripPP (x : xs) = x : stripPP xs
+        stripPP [] = []
+        dropPreprocessorLine x xs
+            | last x == '\\' = "" : dropPreprocessorLine (head xs) (tail xs)
+            | otherwise = "" : stripPP xs
 
 findImports = mapMaybe checkImport . lines
     where