diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1a29096..095bf07 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 
 New features:
+- Added `fromEventTarget` function for `Window` (#53 by @thomashoneyman)
 
 Bugfixes:
 
diff --git a/src/Web/HTML/Window.purs b/src/Web/HTML/Window.purs
index 047fac7..89ce6a8 100644
--- a/src/Web/HTML/Window.purs
+++ b/src/Web/HTML/Window.purs
@@ -1,6 +1,7 @@
 module Web.HTML.Window
   ( Window
   , toEventTarget
+  , fromEventTarget
   , document
   , navigator
   , location
@@ -48,12 +49,16 @@ import Web.HTML.History (History)
 import Web.HTML.Location (Location)
 import Web.HTML.Navigator (Navigator)
 import Web.Storage.Storage (Storage)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data Window :: Type
 
 toEventTarget :: Window -> EventTarget
 toEventTarget = unsafeCoerce
 
+fromEventTarget :: EventTarget -> Maybe Window
+fromEventTarget = unsafeReadProtoTagged "Window"
+
 foreign import document :: Window -> Effect HTMLDocument
 
 foreign import navigator :: Window -> Effect Navigator