Fix haxl build for ghc-8.2

Summary:
In ghc-8.2, we don't have `mappend = (<>)`.
We need define `mappend` explicitly.

Reviewed By: babyLiyuan

Differential Revision: D23090224

fbshipit-source-id: 13359dad7cd1cd3928aef895625ddfc08bb2478e
This commit is contained in:
Zejun Wu 2020-08-13 09:15:22 -07:00 committed by Facebook GitHub Bot
parent 6a796e78bb
commit 2b7f2aea41

View File

@ -808,6 +808,7 @@ instance Semigroup a => Semigroup (GenHaxl u w a) where
instance Monoid a => Monoid (GenHaxl u w a) where
mempty = pure mempty
mappend = liftA2 mappend
blockedBlocked
:: Env u w