diff --git a/Web/Routes.hs b/Web/Routes.hs index 661f9f0..249c698 100644 --- a/Web/Routes.hs +++ b/Web/Routes.hs @@ -304,7 +304,7 @@ instance AutoRoute SessionsController -- WP-0015 — Public intro / tutorial pages (manual routing so / is the root) instance CanRoute StaticPagesController where parseRoute' = choice - [ do endOfInput; pure LandingAction + [ do _ <- string "/"; endOfInput; pure LandingAction , do _ <- string "/capabilities"; endOfInput; pure CapabilitiesAction , do _ <- string "/tutorial"; endOfInput; pure TutorialAction , do _ <- string "/extension-guide"; endOfInput; pure ExtensionGuideAction