From 4410ab2f8cc70b6403d1a5087ac4f7562b16eb01 Mon Sep 17 00:00:00 2001 From: Abhinav Sarkar Date: Mon, 22 Jun 2015 15:21:18 +0530 Subject: [PATCH] Fixes weird segmentation fault on message receive. By removing the strictness annotation from an existential field. --- hask-irc-core/Network/IRC/Message/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hask-irc-core/Network/IRC/Message/Types.hs b/hask-irc-core/Network/IRC/Message/Types.hs index f2a9430..d0deb32 100644 --- a/hask-irc-core/Network/IRC/Message/Types.hs +++ b/hask-irc-core/Network/IRC/Message/Types.hs @@ -43,13 +43,13 @@ data Message = Message -- | The typeclass for different types of messages. class (Typeable msg, Show msg, Eq msg, Ord msg) => MessageC msg where toMessage :: msg -> MessageW - toMessage = MessageW + toMessage !msg = MessageW msg fromMessage :: MessageW -> Maybe msg fromMessage (MessageW msg) = cast msg -- | A wrapper over all types of messages. -data MessageW = forall m . MessageC m => MessageW !m deriving (Typeable) +data MessageW = forall m . MessageC m => MessageW m deriving (Typeable) instance Show MessageW where show (MessageW m) = show m