{-# LANGUAGE CPP #-}
module Language.Javascript.JSaddle.WebSockets.Compat where
import Data.ByteString.Lazy (ByteString)
import qualified Network.WebSockets as WS (DataMessage(..))
getTextMessageByteString :: WS.DataMessage -> Maybe ByteString
getTextMessageByteString :: DataMessage -> Maybe ByteString
getTextMessageByteString DataMessage
msg = case DataMessage
msg of
#if MIN_VERSION_websockets(0,11,0)
(WS.Text ByteString
t Maybe Text
_) ->
#else
(WS.Text t) ->
#endif
ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just ByteString
t
DataMessage
_ -> Maybe ByteString
forall a. Maybe a
Nothing