diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5dbb3dc..79840c4 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 `close` function for `Window` (#78 by @jmp-0x7C0)
 
 Bugfixes:
 
diff --git a/src/Web/HTML/Window.js b/src/Web/HTML/Window.js
index 2d7bb0a..d14f8b0 100644
--- a/src/Web/HTML/Window.js
+++ b/src/Web/HTML/Window.js
@@ -82,6 +82,12 @@ export function _open(url) {
   };
 }
 
+export function close(window) {
+  return function () {
+    return window.close();
+  };
+}
+
 export function outerHeight(window) {
   return function () {
     return window.outerHeight;
diff --git a/src/Web/HTML/Window.purs b/src/Web/HTML/Window.purs
index 89ce6a8..6059cc1 100644
--- a/src/Web/HTML/Window.purs
+++ b/src/Web/HTML/Window.purs
@@ -13,6 +13,7 @@ module Web.HTML.Window
   , moveBy
   , moveTo
   , open
+  , close
   , outerHeight
   , outerWidth
   , print
@@ -89,6 +90,8 @@ foreign import _open
   -> Window
   -> Effect (Nullable Window)
 
+foreign import close :: Window -> Effect Unit
+
 foreign import outerHeight :: Window -> Effect Int
 
 foreign import outerWidth :: Window -> Effect Int