Commit 44d46e17 authored by Vaibhav Sagar's avatar Vaibhav Sagar

IHaskell.Test.Parser: fix test failure on GHC 8.8

parent 93bfa3a7
{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE CPP #-}
module IHaskell.Test.Parser (testParser) where module IHaskell.Test.Parser (testParser) where
import Prelude import Prelude
...@@ -227,4 +228,8 @@ testParseString = describe "Parser" $ do ...@@ -227,4 +228,8 @@ testParseString = describe "Parser" $ do
|]) >>= (`shouldBe` [Located 2 (Expression "first"), Located 4 (Expression "second")]) |]) >>= (`shouldBe` [Located 2 (Expression "first"), Located 4 (Expression "second")])
where where
dataKindsError = ParseError (Loc 1 10) msg dataKindsError = ParseError (Loc 1 10) msg
#if MIN_VERSION_ghc(8,8,0)
msg = "Cannot parse data constructor in a data/newtype declaration:\n 3"
#else
msg = "Cannot parse data constructor in a data/newtype declaration: 3" msg = "Cannot parse data constructor in a data/newtype declaration: 3"
#endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment