@@ -4,11 +4,24 @@ Example:
44
55```haskell
66app = runRouteWithPathInFragment $ do
7− switchPromptly never =<< withRoute (\route -> case fromMaybe "" route of
8− "" -> dashboard user
9− "users" -> users user
7+ switchPromptly never <=< withRoute $ \route -> case fromMaybe "" route of
8+ "" -> (["users"] <$) <$> buttonClick "Open users"
9+ "users" -> users
1010 "test" -> codeToRun >> pure never
1111 "settings" -> text "Settings" >> pure never
1212 _ -> redirectLocally []
13− )
1413```
14+
15+`RouteWriter` can make plumbing easer:
16+
17+
18+```haskell
19+app = runRouteWithPathInFragment $ fmap snd $ runRouteWriterT $ do
20+ void $ withRoute $ \route -> case fromMaybe "" route of
21+ "" -> tellRouteAs ["users"] <=< buttonClick "Open users"
22+ "users" -> users
23+ "test" -> codeToRun
24+ "settings" -> text "Settings"
25+ _ -> tellRedirectLocally []
26+```
27+