diff options
| author | Clint Adams <clint@debian.org> | 2012-11-10 21:11:59 +0400 |
|---|---|---|
| committer | Clint Adams <clint@debian.org> | 2012-11-10 21:11:59 +0400 |
| commit | f146da455553e894b98b8fee673ad2e596547b5c (patch) | |
| tree | 14c392a0f7348cd77fe7265e627fb840ab69ac95 | |
| parent | 1d1d4d23aa53db1df2495127aa8f58319e80a964 (diff) | |
| download | DHG_packages-f146da455553e894b98b8fee673ad2e596547b5c.tar.gz | |
haskell-tinyurl: Patch to build with newer exceptions.
| -rw-r--r-- | p/haskell-tinyurl/debian/changelog | 8 | ||||
| -rw-r--r-- | p/haskell-tinyurl/debian/patches/new-exceptions.diff | 22 | ||||
| -rw-r--r-- | p/haskell-tinyurl/debian/patches/series | 1 |
3 files changed, 29 insertions, 2 deletions
diff --git a/p/haskell-tinyurl/debian/changelog b/p/haskell-tinyurl/debian/changelog index 1810ed1a1..b2d652e5d 100644 --- a/p/haskell-tinyurl/debian/changelog +++ b/p/haskell-tinyurl/debian/changelog @@ -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@debian.org> Sat, 13 Oct 2012 14:13:34 +0200 + [ Clint Adams ] + * Patch to build with newer exceptions. + + -- Clint Adams <clint@debian.org> Sat, 10 Nov 2012 17:09:47 +0000 haskell-tinyurl (0.1.0-2) unstable; urgency=low diff --git a/p/haskell-tinyurl/debian/patches/new-exceptions.diff b/p/haskell-tinyurl/debian/patches/new-exceptions.diff new file mode 100644 index 000000000..00b9565e9 --- /dev/null +++ b/p/haskell-tinyurl/debian/patches/new-exceptions.diff @@ -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 --git a/p/haskell-tinyurl/debian/patches/series b/p/haskell-tinyurl/debian/patches/series new file mode 100644 index 000000000..e60c9c062 --- /dev/null +++ b/p/haskell-tinyurl/debian/patches/series @@ -0,0 +1 @@ +new-exceptions.diff |