diff --git a/src/Web/HTML/HTMLDocument.purs b/src/Web/HTML/HTMLDocument.purs
index 15dc6ba..894420a 100644
--- a/src/Web/HTML/HTMLDocument.purs
+++ b/src/Web/HTML/HTMLDocument.purs
@@ -38,7 +38,7 @@ import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data HTMLDocument :: Type
 
-fromDocument :: Node -> Maybe Document
+fromDocument :: Document -> Maybe HTMLDocument
 fromDocument = unsafeReadProtoTagged "HTMLDocument"
 
 fromNode :: Node -> Maybe HTMLDocument