ipython-kernel: add Semigroup instance

This commit is contained in:
Vaibhav Sagar 2018-11-16 16:28:31 -05:00
parent 74ef9ac887
commit fd5cbf3493

View File

@ -44,6 +44,7 @@ import Data.List (find)
import Data.Map (Map)
import qualified Data.Map as Map
import Data.Maybe (fromMaybe)
import Data.Semigroup (Semigroup)
import Data.Serialize
import Data.Serialize.Text ()
import Data.Text (Text, pack)
@ -170,7 +171,7 @@ type Username = Text
-- | A metadata dictionary.
newtype Metadata = Metadata Object
deriving (Show, Read, ToJSON, Monoid)
deriving (Show, Read, ToJSON, Semigroup, Monoid)
-- | The type of a message, corresponding to IPython message types.
data MessageType = KernelInfoReplyMessage