From e2ad0ca59eb16c1563aaafed1d98044039b33138 Mon Sep 17 00:00:00 2001
From: seanyu4296 <seanyu4296@gmail.com>
Date: Thu, 30 Apr 2020 09:03:58 +0000
Subject: [PATCH] Add useDebugValue hook

---
 src/React/Basic/Hooks.js   |  2 ++
 src/React/Basic/Hooks.purs | 21 +++++++++++++++++++--
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/src/React/Basic/Hooks.js b/src/React/Basic/Hooks.js
index 203aa01..d96896b 100644
--- a/src/React/Basic/Hooks.js
+++ b/src/React/Basic/Hooks.js
@@ -79,6 +79,8 @@ exports.useLazy_ = function (eq, deps, computeA) {
   return React.useMemo(computeA, [memoizedKey]);
 };
 
+exports.useDebugValue_ = React.useDebugValue;
+
 exports.unsafeSetDisplayName = function (displayName, component) {
   component.displayName = displayName;
   component.toString = function () {
diff --git a/src/React/Basic/Hooks.purs b/src/React/Basic/Hooks.purs
index 8f1bf18..ac0001e 100644
--- a/src/React/Basic/Hooks.purs
+++ b/src/React/Basic/Hooks.purs
@@ -32,6 +32,8 @@ module React.Basic.Hooks
   , UseMemo
   , useLazy
   , UseLazy
+  , useDebugValue
+  , UseDebugValue
   , UnsafeReference(..)
   , displayName
   , module React.Basic.Hooks.Internal
@@ -171,8 +173,7 @@ useState' ::
   forall state.
   state ->
   Hook (UseState state) (state /\ (state -> Effect Unit))
-useState' initialState =
-  useState initialState <#> rmap (_ <<< const)
+useState' initialState = useState initialState <#> rmap (_ <<< const)
 
 foreign import data UseState :: Type -> Type -> Type
 
@@ -285,6 +286,15 @@ useLazy deps computeA = unsafeHook (runEffectFn3 useLazy_ (mkFn2 eq) deps comput
 
 foreign import data UseLazy :: Type -> Type -> Type -> Type
 
+-- | Use this hook to display a label for custom hooks in React DevTools
+useDebugValue :: forall a. a -> (a -> String) -> Hook (UseDebugValue a) Unit
+useDebugValue debugValue display = unsafeHook (runEffectFn2 useDebugValue_ debugValue display)
+
+useDebugValue' :: forall a. Show a => a -> Hook (UseDebugValue a) Unit
+useDebugValue' debugValue = useDebugValue debugValue show
+
+foreign import data UseDebugValue :: Type -> Type -> Type
+
 newtype UnsafeReference a
   = UnsafeReference a
 
@@ -395,3 +405,10 @@ foreign import useLazy_ ::
     deps
     (Unit -> a)
     a
+
+foreign import useDebugValue_ ::
+  forall a.
+  EffectFn2
+    a
+    (a -> String)
+    Unit