diff -r 2795499a20bd -r 9070a7c356c9 src/Tools/Code/code_haskell.ML
--- a/src/Tools/Code/code_haskell.ML	Mon Aug 30 15:52:09 2010 +0900
+++ b/src/Tools/Code/code_haskell.ML	Mon Aug 30 09:28:02 2010 +0200
@@ -483,7 +483,7 @@
   Code_Target.add_target
     (target, { serializer = isar_serializer, literals = literals,
       check = { env_var = "EXEC_GHC", make_destination = I,
-        make_command = fn ghc => fn p => fn module_name =>
+        make_command = fn ghc => fn module_name =>
           ghc ^ " -fglasgow-exts -odir build -hidir build -stubdir build -e \"\" " ^ module_name ^ ".hs" } })
   #> Code_Target.add_syntax_tyco target "fun" (SOME (2, fn print_typ => fn fxy => fn [ty1, ty2] =>
       brackify_infix (1, R) fxy (