[Pkg-haskell-commits] darcs: haskell-unlambda: Patch to build with GHC 7.6.

[Clint Adams]

Wed Oct 31 04:13:28 UTC 2012  Clint Adams <clint at debian.org>
  * Patch to build with GHC 7.6.
  Ignore-this: dc814053b9aab3c87b9c5d4b85c97b4

    M ./changelog -3 +7
    A ./patches/new-exceptions.diff
    M ./patches/series +1

Wed Oct 31 04:13:28 UTC 2012  Clint Adams <clint at debian.org>
  * Patch to build with GHC 7.6.
  Ignore-this: dc814053b9aab3c87b9c5d4b85c97b4
diff -rN -u old-haskell-unlambda//changelog new-haskell-unlambda//changelog
--- old-haskell-unlambda//changelog	2012-10-31 04:13:38.655720924 +0000
+++ new-haskell-unlambda//changelog	2012-10-31 04:13:38.659721053 +0000
@@ -1,10 +1,14 @@
-haskell-unlambda (0.1-3) UNRELEASED; urgency=low
+haskell-unlambda (0.1-3) experimental; urgency=low
 
-  * Depend on haskell-devscripts 0.8.13 to ensure this packages is built
+  [ Joachim Breitner ]
+  * Depend on haskell-devscripts 0.8.13 to ensure this package is built
     against experimental
   * Bump standards version, no change
 
- -- Joachim Breitner <nomeata at debian.org>  Sat, 13 Oct 2012 14:13:43 +0200
+  [ Clint Adams ]
+  * Patch to build with GHC 7.6.
+
+ -- Clint Adams <clint at debian.org>  Wed, 31 Oct 2012 04:10:50 +0000
 
 haskell-unlambda (0.1-2) unstable; urgency=low
 
diff -rN -u old-haskell-unlambda//patches/new-exceptions.diff new-haskell-unlambda//patches/new-exceptions.diff
--- old-haskell-unlambda//patches/new-exceptions.diff	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-unlambda//patches/new-exceptions.diff	2012-10-31 04:13:38.659721053 +0000
@@ -0,0 +1,43 @@
+Index: haskell-unlambda-0.1/Language/Unlambda.hs
+===================================================================
+--- haskell-unlambda-0.1.orig/Language/Unlambda.hs	2012-10-31 03:59:04.000000000 +0000
++++ haskell-unlambda-0.1/Language/Unlambda.hs	2012-10-31 04:05:55.828986238 +0000
+@@ -26,6 +26,8 @@
+ 
+ module Language.Unlambda where
+ 
++import Control.Exception.Base (catch, IOException)
++
+ ------------------------------------------------------------------------
+ -- Abstract syntax
+ 
+@@ -132,7 +134,7 @@
+ apply (Dot c) x  = step >> io (putChar c) >> return x
+ apply E x        = exit x
+ apply At f = do
+-  dat <- io $ catch (getChar >>= return . Just) (const $ return Nothing)
++  dat <- io $ catch (getChar >>= return . Just) ((const $ return Nothing) :: IOException -> IO (Maybe Char))
+   setCurrentChar dat
+   apply f (case dat of Nothing -> V ; Just _  -> I)
+ apply (Ques c) f = do
+Index: haskell-unlambda-0.1/Main.hs
+===================================================================
+--- haskell-unlambda-0.1.orig/Main.hs	2008-06-08 22:40:02.000000000 +0000
++++ haskell-unlambda-0.1/Main.hs	2012-10-31 04:09:45.976968843 +0000
+@@ -7,6 +7,7 @@
+ import System.Posix.Resource
+ import Data.Char
+ import System.IO
++import Control.Exception.Base (catch, IOException)
+ 
+ import Language.Unlambda
+ 
+@@ -24,7 +25,7 @@
+ --
+ parse :: Handle -> IO Exp
+ parse h = do
+-  c <- catch (hGetChar h) (\_ -> error "Parse error at end of file")
++  c <- catch (hGetChar h) ((\_ -> error "Parse error at end of file") :: IOException -> IO Char)
+   case toLower c of
+     d | d `elem` " \t\n"  -> parse h
+     '`' -> do e1 <- parse h
diff -rN -u old-haskell-unlambda//patches/series new-haskell-unlambda//patches/series
--- old-haskell-unlambda//patches/series	2012-10-31 04:13:38.579720691 +0000
+++ new-haskell-unlambda//patches/series	2012-10-31 04:13:38.663719733 +0000
@@ -1 +1,2 @@
 unlambda_hs_charset_fix.diff
+new-exceptions.diff