mirror of https://github.com/voidlizard/hbs2
21 lines
518 B
Haskell
21 lines
518 B
Haskell
module HBS2.Git.DashBoard.State.Index
|
|
( module HBS2.Git.DashBoard.State.Index
|
|
, module HBS2.Git.DashBoard.State.Index.Channels
|
|
, module HBS2.Git.DashBoard.State.Index.Peer
|
|
|
|
) where
|
|
|
|
import HBS2.Git.DashBoard.Prelude
|
|
import HBS2.Git.DashBoard.Types
|
|
import HBS2.Git.DashBoard.State.Index.Channels
|
|
import HBS2.Git.DashBoard.State.Index.Peer
|
|
|
|
updateIndex :: (DashBoardPerks m, HasConf m, MonadReader DashBoardEnv m) => m ()
|
|
updateIndex = do
|
|
debug "updateIndex"
|
|
updateIndexFromPeer
|
|
updateIndexFromChannels
|
|
|
|
|
|
|