Fix redundant import warning in base < 4.8

2015-10-04 23:55:12 +02:00 · 2015-10-04 23:55:12 +02:00 · 57461be2eb
commit 57461be2eb
parent 0040badf59
1 changed files with 5 additions and 0 deletions
--- a/servant-js/test/Servant/JSSpec.hs
+++ b/servant-js/test/Servant/JSSpec.hs
@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE DataKinds           #-}
 {-# LANGUAGE FlexibleInstances   #-}
 {-# LANGUAGE QuasiQuotes         #-}
@ -9,7 +10,11 @@
 module Servant.JSSpec where

 import           Data.Either                  (isRight)
+#if !MIN_VERSION_base(4,8,0)
+import           Data.Monoid                  ((<>),mconcat)
+#else
 import           Data.Monoid                  ((<>))
+#endif
 import           Data.Proxy
 import           Data.Text                    (Text)
 import qualified Data.Text                    as T