From fd5cbf3493b6dff0a85e6850954cb886f4954618 Mon Sep 17 00:00:00 2001 From: Vaibhav Sagar Date: Fri, 16 Nov 2018 16:28:31 -0500 Subject: [PATCH] ipython-kernel: add Semigroup instance --- ipython-kernel/src/IHaskell/IPython/Types.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ipython-kernel/src/IHaskell/IPython/Types.hs b/ipython-kernel/src/IHaskell/IPython/Types.hs index 8485a22a..c84dce9f 100644 --- a/ipython-kernel/src/IHaskell/IPython/Types.hs +++ b/ipython-kernel/src/IHaskell/IPython/Types.hs @@ -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