From 257c43e352a75d6e56bf08afcdaa95a36f316b89 Mon Sep 17 00:00:00 2001
From: Nikita Tchayka <nikitatchayka@gmail.com>
Date: Sun, 17 Sep 2023 17:30:47 +0100
Subject: Update disclaimer

---
 src/components/Disclaimer.tsx | 12 ++++++++++--
 src/components/Modal.tsx      |  5 ++++-
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/src/components/Disclaimer.tsx b/src/components/Disclaimer.tsx
index 5ffcc3f..d6537cf 100644
--- a/src/components/Disclaimer.tsx
+++ b/src/components/Disclaimer.tsx
@@ -13,8 +13,16 @@ export default function Disclaimer() {
       >
         <p>
           The NeoHaskell project is a work-in-progress effort in it's early
-          days. Mostly everything is missing. If you're curious about the
-          project:
+          days. Mostly everything is missing (
+          <a
+            className="underline"
+            href="https://github.com/neohaskell/NeoHaskell/milestones"
+            target="_blank"
+            onClick={() => setDisclaimerOpen(!disclaimerOpen)}
+          >
+            click here for a status report
+          </a>
+          ). But, if you really want to know more about the project:
         </p>
         <a
           className="text-lightsecondary hover:underline hover:decoration-wavy underline-offset-4 py-4 block"
diff --git a/src/components/Modal.tsx b/src/components/Modal.tsx
index 55ad174..80d482e 100644
--- a/src/components/Modal.tsx
+++ b/src/components/Modal.tsx
@@ -22,7 +22,10 @@ export default function Modal({
 }: ModalProps) {
   return (
     open && (
-      <div className="z-999 fixed left-0 top-0 flex h-full w-full items-center justify-center bg-black bg-opacity-50 py-10">
+      <div
+        className="z-999 fixed left-0 top-0 flex h-full w-full items-center justify-center bg-black bg-opacity-50 py-10"
+        onClick={() => onOk()}
+      >
         <div className="max-h-full w-full max-w-xl overflow-y-auto sm:rounded-2xl bg-white">
           <div className="w-full">
             <div className="mx-auto my-20 max-w-[400px] flex flex-col gap-5">
-- 
cgit