fix tests

source/Network/Xmpp/Types.hs

@@ -1071,7 +1071,7 @@ jidFromText t = do
 -- >>> jidFromTexts (Just "foo") "bar" (Just "baz") == jidFromText "foo@bar/baz"
 -- True
 --
--- prop> jidFromTexts (localpart j) (domainpart j) (resourcepart j) == Just j
+-- prop> \j -> jidFromTexts (localpart j) (domainpart j) (resourcepart j) == Just j
 jidFromTexts :: Maybe Text -> Text -> Maybe Text -> Maybe Jid
 jidFromTexts l d r = do
     localPart <- case l of

tests/Tests/Stream.hs

@@ -13,7 +13,7 @@ import           Test.Tasty.HUnit
 import           Test.Tasty.Hspec
 import           Test.Tasty.TH
 
-import           Network.Xmpp.Stream
+import           Network.Xmpp.Internal
 
 junk = [ EventBeginDocument
        , EventEndDocument