{-# LANGUAGE FlexibleInstances #-}moduleTest.Hspec.PendingwhereimportqualifiedTest.Hspec.InternalasInternalimportTest.Hspec.Internal(Example(..))-- NOTE: This is defined in a separate packages, because it clashes with-- Result.Pending.-- | A pending example.newtypePending=Pending(MaybeString)instanceExamplePendingwhereevaluateExample(Pendingreason)=evaluateExample(Internal.Pendingreason)instanceExample(String->Pending)whereevaluateExample_=evaluateExample(PendingNothing)-- | A pending example.---- If you want to report on a behavior but don't have an example yet, use this.---- > describe "fancyFormatter" [-- > it "can format text in a way that everyone likes" $-- > pending-- > ]---- You can give an optional reason for why it's pending.---- > describe "fancyFormatter" [-- > it "can format text in a way that everyone likes" $-- > pending "waiting for clarification from the designers"-- > ]pending::String->Pendingpending=Pending.Just