a764d0d · reflex · git.iko.soy

git.iko.soy/reflex

Fix RequesterT test on older GHC

commita764d0d45913239030a19eebf803804ec5f2fed4 authorJohn Ericson <John.Ericson@Obsidian.Systems> dateTue 21 Jan 2020, 13:03 (7 years ago) parent332cdb4

2 files changed+5−2

compare with develop

unifiedsplit

src/Reflex/Class.hs+1−1 test/RequesterT.hs+4−1

src/Reflex/Class.hs+1−1

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

210210import qualified Data.IntMap.Strict as IntMap

211211import Data.List.NonEmpty (NonEmpty (..))

212212import Data.Map (Map)

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

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

214214import Data.Some (Some(Some))

215215import Data.String

216216import Data.These

test/RequesterT.hs+4−1

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

2525import Data.List (words)

2626import Data.Map (Map)

2727import qualified Data.Map as M

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

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

30+#endif

2831import Data.Text (Text)

2932import Data.These

3033import Text.Read (readMaybe)

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

229232instance Show (TestRequest a) where

230233 show = \case

231234 TestRequest_Reverse str -> "reverse " <> str

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

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