diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs index f1361ae..5b27fca 100644 --- a/source/Network/Xmpp/Types.hs +++ b/source/Network/Xmpp/Types.hs @@ -1173,7 +1173,7 @@ jidParts = do return bytes resourcePart = do _ <- AP.char '/' - AP.takeWhile1 (AP.notInClass ['@', '/']) + AP.takeText