1
0
Fork 0

Merge branch 'segmentation-fault-bug'

master
Abhinav Sarkar 2015-06-22 15:22:40 +05:30
Commit 53a28f6c06
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen

Datei anzeigen

@ -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