removing warnings from spec.

This commit is contained in:
Kazu Yamamoto
2014-08-20 12:14:27 +09:00
parent 190dc2ac51
commit 1e1505c535
10 changed files with 18 additions and 31 deletions

View File

@@ -6,18 +6,15 @@ import Dir
import TestUtils
import Control.Applicative
import Control.Monad.Error.Class
import Language.Haskell.GhcMod.Types
import Language.Haskell.GhcMod.Monad
import Language.Haskell.GhcMod.Find
spec :: Spec
spec = do
describe "When using GhcModT in a do block" $
it "a pattern match failure causes a call to `fail` on ErrorT in the monad stack" $ do
(a, w)
(a, _)
<- runGhcModT defaultOptions $
do
Just a <- return Nothing
Just _ <- return Nothing
return "hello"
`catchError` (const $ fail "oh noes")
a `shouldBe` (Left $ GMEString "oh noes")