Define ~> as a specialisation of the version in Hspec.Attoparsec.Source.

This commit is contained in:
vi 2014-06-23 13:24:12 +08:00
parent bee253e428
commit a608e0494d

View File

@ -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.~>)