tweak types so the webapp can run without a threadstate when outside an annex
This commit is contained in:
parent
e9d9d9d5ea
commit
b9b0097876
4 changed files with 14 additions and 6 deletions
|
@ -12,7 +12,6 @@ module Assistant.WebApp.Configurators where
|
|||
import Assistant.Common
|
||||
import Assistant.WebApp
|
||||
import Assistant.WebApp.SideBar
|
||||
import Assistant.ThreadedMonad
|
||||
import Utility.Yesod
|
||||
import qualified Remote
|
||||
import Logs.Web (webUUID)
|
||||
|
@ -27,7 +26,7 @@ introDisplay :: Text -> Widget
|
|||
introDisplay ident = do
|
||||
webapp <- lift getYesod
|
||||
let reldir = relDir webapp
|
||||
l <- liftIO $ runThreadState (threadState webapp) $ do
|
||||
l <- lift $ runAnnex [] $ do
|
||||
u <- getUUID
|
||||
rs <- map Remote.uuid <$> Remote.remoteList
|
||||
rs' <- snd <$> trustPartition DeadTrusted rs
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue