From a608e0494d8de543a476cc52c75ba21f35dd3e45 Mon Sep 17 00:00:00 2001
From: vi <me@vikramverma.com>
Date: Mon, 23 Jun 2014 13:24:12 +0800
Subject: [PATCH] Define ~> as a specialisation of the version in
 Hspec.Attoparsec.Source.

---
 tests/Text/Taggy/ParserSpec.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/Text/Taggy/ParserSpec.hs b/tests/Text/Taggy/ParserSpec.hs
index f9168c6..dbf48d4 100644
--- a/tests/Text/Taggy/ParserSpec.hs
+++ b/tests/Text/Taggy/ParserSpec.hs
@@ -6,6 +6,7 @@ import Data.Attoparsec.Text.Lazy
 import Data.Text.Lazy
 import Test.Hspec
 import Test.Hspec.Attoparsec (shouldParse)
+import qualified Test.Hspec.Attoparsec.Source (Source((~>)))
 import Text.Taggy.Parser
 import Text.Taggy.Types
 
@@ -100,4 +101,4 @@ spec = do
                       ]
 
 (~>) :: Text -> Parser a -> Either String a
-t ~> p = eitherResult $ parse p t
+(~>) = (Test.Hspec.Attoparsec.Source.~>)