(wip) Add support for @since (closes #26)

1 files changed, 4 insertions, 3 deletions

diff --git a/haddock-library/test/Documentation/Haddock/Parser/UtilSpec.hs b/haddock-library/test/Documentation/Haddock/Parser/UtilSpec.hs
index 32dd11d4..10c701c7 100644
--- a/haddock-library/test/Documentation/Haddock/Parser/UtilSpec.hs
+++ b/haddock-library/test/Documentation/Haddock/Parser/UtilSpec.hs
@@ -5,6 +5,7 @@ import Documentation.Haddock.Parser.Monad
 import Documentation.Haddock.Parser.Util
 import Data.Either.Compat (isLeft)
 import Test.Hspec
+import Control.Applicative
 
 main :: IO ()
 main = hspec spec
@@ -13,10 +14,10 @@ spec :: Spec
 spec = do
   describe "takeUntil" $ do
     it "takes everything until a specified byte sequence" $ do
-      parseOnly (takeUntil "end") "someend" `shouldBe` Right "some"
+      snd <$> parseOnly (takeUntil "end") "someend" `shouldBe` Right "some"
 
     it "requires the end sequence" $ do
-      parseOnly (takeUntil "end") "someen" `shouldSatisfy` isLeft
+      snd <$> parseOnly (takeUntil "end") "someen" `shouldSatisfy` isLeft
 
     it "takes escaped bytes unconditionally" $ do
-      parseOnly (takeUntil "end") "some\\endend" `shouldBe` Right "some\\end"
+      snd <$> parseOnly (takeUntil "end") "some\\endend" `shouldBe` Right "some\\end"