Permalink
Browse files

supporting GHC 6.12

  • Loading branch information...
1 parent 22dd280 commit ec410d87e2342ed49694daf167c002228a00dd0e Alexander Bernauer committed Nov 2, 2011
Showing with 7 additions and 1 deletion.
  1. +4 −0 bitcoin-script-tools.cabal
  2. +3 −1 test/Language/Bitcoin/Test/Utils.hs
@@ -11,6 +11,10 @@ license: GPL-3
license-file: LICENSE
description: An inofficial implementation of Bitcoin Script tools
+tested-with:
+ GHC == 6.12.1,
+ GHC == 7.0.3
+
data-files:
README,
LICENSE
@@ -6,7 +6,6 @@ module Language.Bitcoin.Test.Utils
import Language.Bitcoin.Utils (b2i', i2b, unpad)
import qualified Data.ByteString.Lazy as B
import Test.HUnit
-import Data.Tuple (swap)
b2iTestCases = [
([0x23], 0x23)
@@ -43,3 +42,6 @@ i2bTests = map runTest i2bTestCases
where
runTest (input, expected) = TestCase $
expected @=? (B.unpack $ i2b input)
+
+-- avoid swap from Data.Tuple. It has been added to base 4.3 and GHC 6 uses base < 4.3
+swap (x, y) = (y, x)

0 comments on commit ec410d8

Please sign in to comment.