Allow witherable ==0.3.*

Author: phadej

.travis.yml

@@ -164,6 +164,8 @@ script:
   - ${CABAL} v2-build $WITHCOMPILER --disable-tests --disable-benchmarks --constraint='reflex -use-template-haskell' all | color_cabal_output
   # Constraint set old-these
   - ${CABAL} v2-build $WITHCOMPILER --disable-tests --disable-benchmarks --constraint='these <1' all | color_cabal_output
+  # Constraint set old-witherable
+  - ${CABAL} v2-build $WITHCOMPILER --disable-tests --disable-benchmarks --constraint='witherable <0.3.2' all | color_cabal_output
 
 # REGENDATA ["--config=cabal.haskell-ci","cabal.project"]
 # EOF

cabal.haskell-ci

@@ -11,3 +11,6 @@ constraint-set no-th
 
 constraint-set old-these
   constraints: these <1
+
+constraint-set old-witherable
+  constraints: witherable <0.3.2

reflex.cabal

@@ -74,7 +74,7 @@ library
     time >= 1.4 && < 1.9,
     transformers >= 0.5.6.0 && < 0.6,
     unbounded-delays >= 0.1.0.0 && < 0.2,
-    witherable >= 0.2 && < 0.3
+    witherable >= 0.2 && < 0.4
 
   if flag(split-these)
     build-depends:     these >= 1 && <1.1,

src/Data/AppendMap.hs

@@ -46,8 +46,10 @@ _unAppendMap = getMonoidalMap
 pattern AppendMap :: Map k v -> MonoidalMap k v
 pattern AppendMap m = MonoidalMap m
 
+#if !MIN_VERSION_witherable(0,3,2)
 instance W.Filterable (MonoidalMap k) where
   mapMaybe = mapMaybe
+#endif
 
 -- | Deletes a key, returning 'Nothing' if the result is empty.
 nonEmptyDelete :: Ord k => k -> MonoidalMap k a -> Maybe (MonoidalMap k a)