@@ -28,7 +28,9 @@ import Data.Foldable (foldMap)
29import qualified Data.Map as M
29import qualified Data.Map as M
31+#if __GLASGOW_HASKELL__ < 710
31import Control.Applicative
32import Control.Applicative
32import Control.Arrow (Arrow(..))
34import Control.Arrow (Arrow(..))
33import Control.Monad.State
35import Control.Monad.State
34import Control.Monad.Error.Class (MonadError(..))
36import Control.Monad.Error.Class (MonadError(..))