test in the Demo code

freizl · Sep 15, 2023 · a893922 · a893922
1 parent 49d42af
commit a893922
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/hoauth2-demo/src/App.hs b/hoauth2-demo/src/App.hs
@@ -34,6 +34,7 @@ import Views
 import Web.Scotty
 import Web.Scotty qualified as Scotty
 import Prelude
+import Debug.Breakpoint
 
 -------------------------------------------------------------------------------
 --                                    App                                    --
@@ -267,6 +268,7 @@ runActionWithIdp ::
   ActionM a
 runActionWithIdp funcName action = do
   midp <- paramValueMaybe "idp" <$> params
+  liftIO breakpointIO
   case midp of
     Just idpName -> exceptToActionM (action $ fromText idpName)
     Nothing -> raise $ "[" <> funcName <> "] Expects 'idp' parameter but found nothing"