[kaya] Try to fix a issue in Driver.hs

[Jochen Schmitt]

commit 850c966f9b61f6a6016f7deca7b28d3844132819
Author: Jochen Schmitt <Jochen at herr-schmitt.de>
Date:   Wed Aug 28 10:36:40 2013 +0200

    Try to fix a issue in Driver.hs

 kaya-0.5.2-ghc76.patch |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)
---
diff --git a/kaya-0.5.2-ghc76.patch b/kaya-0.5.2-ghc76.patch
index a3af264..3f7de65 100644
--- a/kaya-0.5.2-ghc76.patch
+++ b/kaya-0.5.2-ghc76.patch
@@ -21,7 +21,7 @@ diff -up kaya-0.5.2/compiler/CodegenCPP.hs.ghc76 kaya-0.5.2/compiler/CodegenCPP.
  writecpp [] = []
 diff -up kaya-0.5.2/compiler/Driver.hs.ghc76 kaya-0.5.2/compiler/Driver.hs
 --- kaya-0.5.2/compiler/Driver.hs.ghc76	2013-08-27 22:10:31.976436068 +0200
-+++ kaya-0.5.2/compiler/Driver.hs	2013-08-27 22:12:10.777896529 +0200
++++ kaya-0.5.2/compiler/Driver.hs	2013-08-28 10:35:38.659241807 +0200
 @@ -37,6 +37,7 @@ import System.Random
  import System.IO
  import Debug.Trace
@@ -30,15 +30,17 @@ diff -up kaya-0.5.2/compiler/Driver.hs.ghc76 kaya-0.5.2/compiler/Driver.hs
  import Control.Monad
  
  -- Compile a file, with extra options to gcc, and main options. Returns the
-@@ -68,7 +69,7 @@ compileFile prtype modname fn extra opts
+@@ -68,8 +69,8 @@ compileFile prtype modname fn extra opts
         catch (do startup <- getStartup prtype libdirs
                   let pt = addToPT (parse newroot libdirs (prog++startup) fn) pinput 
                   compile newroot libdirs opts pt extra mainfile)
 -             (\e -> do putStrLn (show e)
-+             (\ (e :: SomeException) -> do putStrLn (show e)
-                        return CompError)
+-                       return CompError)
++             (\ (e :: SomeException) -> (do putStrLn (show e)
++                       return CompError))
  
  outputfile Module mod = showuser mod ++ ".o"
+ -- TMP HACK: This should probably be a %extension "cgi" directive in the .ks
 diff -up kaya-0.5.2/compiler/Module.hs.ghc76 kaya-0.5.2/compiler/Module.hs
 --- kaya-0.5.2/compiler/Module.hs.ghc76	2013-08-27 21:33:00.658326051 +0200
 +++ kaya-0.5.2/compiler/Module.hs	2013-08-27 21:33:00.689323999 +0200