Skip to content

Commit a764d0d

Browse files
committed
Fix RequesterT test on older GHC
1 parent 332cdb4 commit a764d0d

2 files changed

Lines changed: 5 additions & 2 deletions

File tree

src/Reflex/Class.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -210,7 +210,7 @@ import Data.IntMap.Strict (IntMap)
210210
import qualified Data.IntMap.Strict as IntMap
211211
import Data.List.NonEmpty (NonEmpty (..))
212212
import Data.Map (Map)
213-
import Data.Semigroup (Semigroup, sconcat, stimes, (<>))
213+
import Data.Semigroup (Semigroup (..))
214214
import Data.Some (Some(Some))
215215
import Data.String
216216
import Data.These

test/RequesterT.hs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,6 +25,9 @@ import Data.Functor.Misc
2525
import Data.List (words)
2626
import Data.Map (Map)
2727
import qualified Data.Map as M
28+
#if MIN_VERSION_these(4,11,0)
29+
import Data.Semigroup ((<>))
30+
#endif
2831
import Data.Text (Text)
2932
import Data.These
3033
import Text.Read (readMaybe)
@@ -229,4 +232,4 @@ deriveArgDict ''TestRequest
229232
instance 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

0 commit comments

Comments
 (0)