[DHG_packages] 03/10: hunit patch: Fix line ending

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository DHG_packages.

commit a68786bcfb146758795b982040ca7249c687a469
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Aug 11 10:23:05 2015 +0200

    hunit patch: Fix line ending
---
 p/haskell-hunit/debian/patches/broken_links.patch | 70 +++++++++++------------
 1 file changed, 35 insertions(+), 35 deletions(-)

diff --git a/p/haskell-hunit/debian/patches/broken_links.patch b/p/haskell-hunit/debian/patches/broken_links.patch
index 392a034..c6bfc59 100644
--- a/p/haskell-hunit/debian/patches/broken_links.patch
+++ b/p/haskell-hunit/debian/patches/broken_links.patch
@@ -10,39 +10,39 @@ Index: HUnit-1.2.2.1/Test/HUnit.hs
 --- HUnit-1.2.2.1.orig/Test/HUnit.hs	2010-02-20 11:08:41.000000000 -0200
 +++ HUnit-1.2.2.1/Test/HUnit.hs	2010-02-20 11:09:16.000000000 -0200
 @@ -12,17 +12,17 @@
- --  Define test cases as appropriate:
- --
- -- @
----    test1 = TestCase (assertEqual "for (foo 3)," (1,2) (foo 3))
-+--    test1 = TestCase (assertEqual \"for (foo 3),\" (1,2) (foo 3))
- --    test2 = TestCase (do (x,y) <- partA 3
----                         assertEqual "for the first result of partA," 5 x
-+--                         assertEqual \"for the first result of partA,\" 5 x
- --                         b <- partB y
----                         assertBool ("(partB " ++ show y ++ ") failed") b)
-+--                         assertBool (\"(partB \" ++ show y ++ \") failed\") b)
- -- @
- --
- -- Name the test cases and group them together:
- --
- -- @
----    tests = TestList [TestLabel "test1" test1, TestLabel "test2" test2]
-+--    tests = TestList [TestLabel \"test1\" test1, TestLabel \"test2\" test2]
- -- @
- --
- -- Run the tests as a group. At a Haskell interpreter prompt, apply the function
+ --  Define test cases as appropriate:
+ -- 
+ -- @
+---    test1 = TestCase (assertEqual "for (foo 3)," (1,2) (foo 3))
++--    test1 = TestCase (assertEqual \"for (foo 3),\" (1,2) (foo 3))
+ --    test2 = TestCase (do (x,y) <- partA 3
+---                         assertEqual "for the first result of partA," 5 x
++--                         assertEqual \"for the first result of partA,\" 5 x
+ --                         b <- partB y
+---                         assertBool ("(partB " ++ show y ++ ") failed") b)
++--                         assertBool (\"(partB \" ++ show y ++ \") failed\") b)
+ -- @
+ --
+ -- Name the test cases and group them together:
+ --
+ -- @
+---    tests = TestList [TestLabel "test1" test1, TestLabel "test2" test2]
++--    tests = TestList [TestLabel \"test1\" test1, TestLabel \"test2\" test2]
+ -- @
+ --
+ -- Run the tests as a group. At a Haskell interpreter prompt, apply the function
 @@ -51,10 +51,10 @@
- -- functions that HUnit provides:
- --
- -- @
----    tests = test [ "test1" ~: "(foo 3)" ~: (1,2) ~=? (foo 3),
----                   "test2" ~: do (x, y) <- partA 3
----                                 assertEqual "for the first result of partA," 5 x
----                                 partB y \@? "(partB " ++ show y ++ ") failed" ]
-+--    tests = test [ \"test1\" ~: \"(foo 3)\" ~: (1,2) ~=? (foo 3),
-+--                   \"test2\" ~: do (x, y) <- partA 3
-+--                                 assertEqual \"for the first result of partA,\" 5 x
-+--                                 partB y \@? \"(partB \" ++ show y ++ \") failed\" ]
- -- @
- --
- -- Assuming the same test failures as before, you would see:
+ -- functions that HUnit provides:
+ --
+ -- @
+---    tests = test [ "test1" ~: "(foo 3)" ~: (1,2) ~=? (foo 3),
+---                   "test2" ~: do (x, y) <- partA 3
+---                                 assertEqual "for the first result of partA," 5 x
+---                                 partB y \@? "(partB " ++ show y ++ ") failed" ]
++--    tests = test [ \"test1\" ~: \"(foo 3)\" ~: (1,2) ~=? (foo 3),
++--                   \"test2\" ~: do (x, y) <- partA 3
++--                                 assertEqual \"for the first result of partA,\" 5 x
++--                                 partB y \@? \"(partB \" ++ show y ++ \") failed\" ]
+ -- @
+ --
+ -- Assuming the same test failures as before, you would see:

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git