[Pkg-haskell-commits] darcs: haskell-tinyurl: Patch to build with newer exceptions.

[Clint Adams]

Sat Nov 10 17:11:59 UTC 2012  Clint Adams <clint at debian.org>
  * Patch to build with newer exceptions.
  Ignore-this: 54c2877f2f03bbdf5e7531ff52d07700

    M ./changelog -2 +6
    A ./patches/
    A ./patches/new-exceptions.diff
    A ./patches/series

Sat Nov 10 17:11:59 UTC 2012  Clint Adams <clint at debian.org>
  * Patch to build with newer exceptions.
  Ignore-this: 54c2877f2f03bbdf5e7531ff52d07700
diff -rN -u old-haskell-tinyurl//changelog new-haskell-tinyurl//changelog
--- old-haskell-tinyurl//changelog	2012-11-10 17:12:06.258309101 +0000
+++ new-haskell-tinyurl//changelog	2012-11-10 17:12:06.266243827 +0000
@@ -1,10 +1,14 @@
-haskell-tinyurl (0.1.0-3) UNRELEASED; urgency=low
+haskell-tinyurl (0.1.0-3) experimental; urgency=low
 
+  [ Joachim Breitner ]
   * Depend on haskell-devscripts 0.8.13 to ensure this packages is built
     against experimental
   * Bump standards version, no change
 
- -- Joachim Breitner <nomeata at debian.org>  Sat, 13 Oct 2012 14:13:34 +0200
+  [ Clint Adams ]
+  * Patch to build with newer exceptions.
+
+ -- Clint Adams <clint at debian.org>  Sat, 10 Nov 2012 17:09:47 +0000
 
 haskell-tinyurl (0.1.0-2) unstable; urgency=low
 
diff -rN -u old-haskell-tinyurl//patches/new-exceptions.diff new-haskell-tinyurl//patches/new-exceptions.diff
--- old-haskell-tinyurl//patches/new-exceptions.diff	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-tinyurl//patches/new-exceptions.diff	2012-11-10 17:12:06.270335738 +0000
@@ -0,0 +1,22 @@
+Index: haskell-tinyurl-0.1.0/Network/TinyURL.hs
+===================================================================
+--- haskell-tinyurl-0.1.0.orig/Network/TinyURL.hs	2009-02-16 19:19:31.000000000 +0000
++++ haskell-tinyurl-0.1.0/Network/TinyURL.hs	2012-11-10 17:09:05.063668586 +0000
+@@ -1,5 +1,8 @@
++{-# LANGUAGE ScopedTypeVariables #-}
++
+ module Network.TinyURL (tinyURL) where
+ 
++import Control.Exception.Base (catch, IOException)
+ import Network.HTTP
+ import Network.URI
+ 
+@@ -7,7 +10,7 @@
+ -- the original URL.
+ tinyURL :: String -> IO String
+ tinyURL url = do
+-  result <- simpleHTTP request `catch` (const . return $ Left undefined)
++  result <- simpleHTTP request `catch` (\(_ :: IOException) -> return $ Left undefined)
+   case result of
+     Left _ -> return url
+     Right response -> return $ rspBody response
diff -rN -u old-haskell-tinyurl//patches/series new-haskell-tinyurl//patches/series
--- old-haskell-tinyurl//patches/series	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-tinyurl//patches/series	2012-11-10 17:12:06.270335738 +0000
@@ -0,0 +1 @@
+new-exceptions.diff