Only import Traversable in < ghc 7.10

This commit is contained in:
Trevor Elliott 2015-08-11 17:16:57 -07:00
parent 77c69efe8d
commit 579b129c2f

View File

@ -29,11 +29,11 @@ import Cryptol.Utils.PP
import Cryptol.Prims.Eval
import qualified Data.Map as Map
import Data.Traversable (sequenceA)
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative (Applicative(..))
import Data.Monoid (Monoid(..),mconcat)
import Data.Traversable (sequenceA)
#endif
-- Expression Evaluation -------------------------------------------------------