[Pkg-haskell-commits] darcs: haskell-unlambda: New upstream version 0.1.3.

[Clint Adams]

Thu Nov  1 16:48:21 UTC 2012  Clint Adams <clint at debian.org>
  * New upstream version 0.1.3.
  Ignore-this: 244edb791951e6a66f0a95599cb026ff

    M ./changelog +6
    R ./patches/new-exceptions.diff
    M ./patches/series -1
    M ./patches/unlambda_hs_charset_fix.diff -10 +5

Thu Nov  1 16:48:21 UTC 2012  Clint Adams <clint at debian.org>
  * New upstream version 0.1.3.
  Ignore-this: 244edb791951e6a66f0a95599cb026ff
diff -rN -u old-haskell-unlambda//changelog new-haskell-unlambda//changelog
--- old-haskell-unlambda//changelog	2012-11-01 17:12:01.906221285 +0000
+++ new-haskell-unlambda//changelog	2012-11-01 17:12:01.906221285 +0000
@@ -1,3 +1,9 @@
+haskell-unlambda (0.1.3-1) UNRELEASED; urgency=low
+
+  * New upstream version.
+
+ -- Clint Adams <clint at debian.org>  Thu, 01 Nov 2012 12:42:15 -0400
+
 haskell-unlambda (0.1-3) experimental; urgency=low
 
   [ Joachim Breitner ]
diff -rN -u old-haskell-unlambda//patches/new-exceptions.diff new-haskell-unlambda//patches/new-exceptions.diff
--- old-haskell-unlambda//patches/new-exceptions.diff	2012-11-01 17:12:01.902220973 +0000
+++ new-haskell-unlambda//patches/new-exceptions.diff	1970-01-01 00:00:00.000000000 +0000
@@ -1,43 +0,0 @@
-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-11-01 17:12:01.902220973 +0000
+++ new-haskell-unlambda//patches/series	2012-11-01 17:12:01.910224890 +0000
@@ -1,2 +1 @@
 unlambda_hs_charset_fix.diff
-new-exceptions.diff
diff -rN -u old-haskell-unlambda//patches/unlambda_hs_charset_fix.diff new-haskell-unlambda//patches/unlambda_hs_charset_fix.diff
--- old-haskell-unlambda//patches/unlambda_hs_charset_fix.diff	2012-11-01 17:12:01.862225788 +0000
+++ new-haskell-unlambda//patches/unlambda_hs_charset_fix.diff	2012-11-01 17:12:01.910224890 +0000
@@ -1,6 +1,8 @@
---- a/Language/Unlambda.hs
-+++ b/Language/Unlambda.hs
-@@ -6,7 +6,7 @@
+Index: unlambda-0.1.3/Language/Unlambda.hs
+===================================================================
+--- unlambda-0.1.3.orig/Language/Unlambda.hs	2012-10-31 12:57:28.000000000 -0400
++++ unlambda-0.1.3/Language/Unlambda.hs	2012-11-01 12:45:35.773424569 -0400
+@@ -5,7 +5,7 @@
  This is an interpreter of the Unlambda language, written in
  the pure, lazy, functional language Haskell.
  
@@ -9,10 +11,3 @@
  Copyright (C) 2006 by Don Stewart - http://www.cse.unsw.edu.au/~dons
  
  This program is free software; you can redistribute it and/or modify
-@@ -141,4 +141,4 @@
- apply Pipe f = do
-   cur <- currentChar
-   apply f (case cur of Nothing -> V ; Just c  -> (Dot c))
--apply (App _ _) _ = error "Unknown application"
-\ No newline at end of file
-+apply (App _ _) _ = error "Unknown application"