From a9ff4c8335ceea057b13b22a7119767cc25099be Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Wed, 13 Jun 2012 18:18:06 +0200 Subject: [PATCH] fix a fromJust in Read LangTag --- source/Network/Xmpp/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs index 1acbcf4..a9e1c62 100644 --- a/source/Network/Xmpp/Types.hs +++ b/source/Network/Xmpp/Types.hs @@ -50,7 +50,7 @@ import qualified Data.Attoparsec.Text as AP import qualified Data.ByteString as BS import Data.Conduit import Data.String(IsString(..)) -import Data.Maybe (fromJust, fromMaybe) +import Data.Maybe (fromJust, fromMaybe, maybeToList) import Data.Text (Text) import qualified Data.Text as Text import Data.Typeable(Typeable) @@ -596,7 +596,7 @@ instance Eq LangTag where map Text.toLower s == map Text.toLower t instance Read LangTag where - readsPrec _ txt = [(fromJust $ langTag $ Text.pack txt, "")] + readsPrec _ txt = (,"") <$> maybeToList (langTag $ Text.pack txt) instance Show LangTag where show (LangTag p []) = Text.unpack p