From 4022aabc4924422edb6a9ef0b77689ea457e40cb Mon Sep 17 00:00:00 2001
From: Jaseem Abid <jaseemabid@gmail.com>
Date: Sun, 22 Feb 2015 00:29:06 +0530
Subject: [PATCH] Fix failing test

---
 src/Tracker.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Tracker.hs b/src/Tracker.hs
index 65290c3..eab0979 100644
--- a/src/Tracker.hs
+++ b/src/Tracker.hs
@@ -17,8 +17,8 @@ type Url = String
 
 -- | urlEncodeHash
 --
--- >>> urlEncodeHash $ BC.pack "123456789abcdef123456789abcdef123456789a"
--- "%124vx%9a%bc%de%f1%23Eg%89%ab%cd%ef%124Vx%9a"
+-- >>> urlEncodeHash $ pack "123456789abcdef123456789abcdef123456789a"
+-- "%124Vx%9a%bc%de%f1%23Eg%89%ab%cd%ef%124Vx%9a"
 urlEncodeHash :: ByteString -> String
 urlEncodeHash bs = concatMap (encode' . unpack) (splitN 2 bs)
   where encode' b@[c1, c2] = let c =  chr (read ("0x" ++ b))
-- 
2.45.2