a764d0d · reflex · git.iko.soy

on develop help sign in

Fix RequesterT test on older GHC

a764d0dJohn Ericson7 years ago

src/Reflex/Class.hs+1−1

@@ -210,7 +210,7 @@ import Data.IntMap.Strict (IntMap)

210import qualified Data.IntMap.Strict as IntMap

211import Data.List.NonEmpty (NonEmpty (..))

212import Data.Map (Map)

213−import Data.Semigroup (Semigroup, sconcat, stimes, (<>))

213+import Data.Semigroup (Semigroup (..))

214import Data.Some (Some(Some))

215import Data.String

216import Data.These

test/RequesterT.hs+4−1

@@ -25,6 +25,9 @@ import Data.Functor.Misc

25import Data.List (words)

26import Data.Map (Map)

27import qualified Data.Map as M

28+#if MIN_VERSION_these(4,11,0)

29+import Data.Semigroup ((<>))

30+#endif

28import Data.Text (Text)

31import Data.Text (Text)

29import Data.These

32import Data.These

30import Text.Read (readMaybe)

33import Text.Read (readMaybe)

@@ -229,4 +232,4 @@ deriveArgDict ''TestRequest

229instance Show (TestRequest a) where

232instance Show (TestRequest a) where

230 show = \case

233 show = \case

231 TestRequest_Reverse str -> "reverse " <> str

234 TestRequest_Reverse str -> "reverse " <> str

232− TestRequest_Increment i -> "increment " <> show i

235+ TestRequest_Increment i -> "increment " <> show i