initialRouting.hs

_ <- mdo
  historyState <- manageHistory $ HistoryCommand_PushState <$> setState
  let 
    f (currentSet, currentHistoryState, oldRoute) idxChange =
      let newRoute = switchPkgRoute currentSet oldRoute idxChange
      in 
        HistoryStateUpdate
        { _historyStateUpdate_state = DOM.SerializedScriptValue jsNull
        , _historyStateUpdate_title = ""
        , _historyStateUpdate_uri   = newRoute
        }
    setState = attachWith f ((\a b c -> (a,b,c)) <$> current dynReports 
                                                 <*> current historyState 
                                                 <*> current dynLoc ) evIdxChange
    pure historyState