big-case-statement.hs

  case _dbNotification_message notification of
    NotifyTag_Baker :=> Identity (bid, mBaker) -> handleBaker bid mBaker
    NotifyTag_BakerDetails :=> Identity bakerDetails -> handleBakerDetails bakerDetails
    NotifyTag_BakerRightsProgress :=> Identity (_x, y, _z) -> handleBakerAddress (_bakerRightsCycleProgress_publicKeyHash y)
    NotifyTag_ErrorLog tag :=> Identity eid ->
      logAssume tag $ handleErrorLog (errorLogIdForErrorLogView . (tag :=>) . Identity) tag eid
    NotifyTag_ProtocolIndex :=> Identity eid -> handleParameters eid
    NotifyTag_MailServerConfig :=> Identity (_eid, cfg) -> handleMailServer cfg
    NotifyTag_NodeExternal :=> Identity (eid, ent) -> (<>) <$> handleNodeExternal eid ent <*> alsoEveryBakerSummary
    NotifyTag_NodeInternal :=> Identity (eid, ent) -> (<>) <$> handleNodeInternal eid ent <*> alsoEveryBakerSummary
    NotifyTag_NodeDetails :=> Identity (eid, ent) -> (<>) <$> handleNodeDetails eid ent <*> alsoEveryBakerSummary
    NotifyTag_Notificatee :=> _eid -> handleNotificatee
    NotifyTag_PublicNodeConfig :=> Identity (_eid, ent) -> handlePublicNodeConfig ent
    NotifyTag_PublicNodeHead :=> Identity (eid, ent) -> handlePublicNodeHead eid ent
    NotifyTag_SnapshotMeta :=> Identity ent -> handleSnapshotMeta ent
    NotifyTag_TelegramConfig :=> Identity (_eid, ent) -> handleTelegramConfig ent
    NotifyTag_TelegramRecipient :=> Identity (eid, ent) -> handleTelegramRecipient eid ent
    NotifyTag_UpstreamVersion :=> Identity (_eid, ent) -> handleUpstreamVersion ent
    NotifyTag_ConnectedLedger :=> Identity mli -> handleConnectedLedger mli
    NotifyTag_ShowLedger :=> Identity (sk, mpkh) -> handleShowLedger sk mpkh
    NotifyTag_Prompting :=> Identity (sk, step) -> handlePrompting sk step
    NotifyTag_VotePrompting :=> Identity (sk, step) -> handleVotePrompting sk step
    NotifyTag_RightNotificationSettings :=> Identity (rk, mrnl) -> handleRightNotificationSettings rk mrnl
    NotifyTag_Amendment :=> Identity (k, ma) -> handleAmendment k ma
    NotifyTag_Proposals :=> Identity (pid, mp) -> handleProposals pid mp
    NotifyTag_PeriodTestingVote :=> Identity ma -> handlePeriodTestingVote ma
    NotifyTag_PeriodTesting :=> Identity ma -> handlePeriodTesting ma
    NotifyTag_PeriodPromotionVote :=> Identity ma -> handlePeriodPromotionVote ma
    NotifyTag_PeriodAdoption :=> Identity ma -> handlePeriodAdoption ma
    NotifyTag_BakerVote :=> Identity ma -> handleBakerVote ma
    NotifyTag_BakerRegistered :=> Identity (pkh, b) -> handleBakerRegistered pkh b
    NotifyTag_NodeVersion :=> Identity (nid, mtzversion) -> handleTezosVersion mtzversion nid
    NotifyTag_LatestTezosRelease :=> Identity mlatestTezosRelease -> handleLatestTezosRelease mlatestTezosRelease