diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs
index 1ccdc2c..d0675dd 100644
--- a/source/Network/Xmpp/Types.hs
+++ b/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
diff --git a/tests/Tests/Stream.hs b/tests/Tests/Stream.hs
index cc03f09..45b6773 100644
--- a/tests/Tests/Stream.hs
+++ b/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