--- a/tools/pas2c/pas2c.hs	Wed Nov 07 18:04:27 2012 +0000
+++ b/tools/pas2c/pas2c.hs	Thu Nov 08 21:56:19 2012 +0100
@@ -95,7 +95,7 @@
 docToLower = text . map toLower . render
 
 pas2C :: String -> String -> String -> String -> IO ()
-pas2C fn inputPath alternateInputPath outputPath = do
+pas2C fn inputPath outputPath alternateInputPath = do
     s <- flip execStateT initState $ f fn
     renderCFiles s outputPath
     where