import Reactix as Rimport Routing.Match (Match)import Routing.Hash (matches)import Toestand as T-- | Sets up the hash router so it writes the route to the given cell.-- | Note: if it gets sent to an unrecognised url, it will quietly-- | drop the change.useHashRouter :: forall r c. T.Write c r => Match r -> c -> R.Hooks UnituseHashRouter routes cell = R.useEffectOnce $ matches routes h where