mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove some unused vars

Browse source 
Warnings for these are normally hidden somehow by TH, but show up when
building with EvilSplicer.
This commit is contained in:
Joey Hess 2013-12-18 22:39:15 -04:00
parent c003d3e441
commit adca65b31a
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators/Edit.hs
View file

@ -199,7 +199,7 @@ editForm new (RepoUUID uuid) = page "Edit repository" (Just Configuration) $ do
let repoInfo = getRepoInfo mremote config let repoInfo = getRepoInfo mremote config
let repoEncryption = getRepoEncryption mremote config let repoEncryption = getRepoEncryption mremote config
$(widgetFile "configurators/edit/repository") $(widgetFile "configurators/edit/repository")
editForm new r@(RepoName _) = page "Edit repository" (Just Configuration) $ do editForm _new r@(RepoName _) = page "Edit repository" (Just Configuration) $ do
mr <- liftAnnex (repoIdRemote r) mr <- liftAnnex (repoIdRemote r)
let repoInfo = getRepoInfo mr Nothing let repoInfo = getRepoInfo mr Nothing
g <- liftAnnex gitRepo g <- liftAnnex gitRepo

10
Assistant/WebApp/DashBoard.hs
View file

@ -28,9 +28,8 @@ import qualified Data.Map as M
import Control.Concurrent import Control.Concurrent
{- A display of currently running and queued transfers. -} {- A display of currently running and queued transfers. -}
transfersDisplay :: Bool -> Widget transfersDisplay :: Widget
transfersDisplay warnNoScript = do transfersDisplay = do
webapp <- liftH getYesod
current <- liftAssistant $ M.toList <$> getCurrentTransfers current <- liftAssistant $ M.toList <$> getCurrentTransfers
queued <- take 10 <$> liftAssistant getTransferQueue queued <- take 10 <$> liftAssistant getTransferQueue
autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int) autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int)
@ -66,7 +65,7 @@ getTransfersR :: NotificationId -> Handler Html
getTransfersR nid = do getTransfersR nid = do
waitNotifier getTransferBroadcaster nid waitNotifier getTransferBroadcaster nid
p <- widgetToPageContent $ transfersDisplay False p <- widgetToPageContent transfersDisplay
giveUrlRenderer $ [hamlet|^{pageBody p}|] giveUrlRenderer $ [hamlet|^{pageBody p}|]
{- The main dashboard. -} {- The main dashboard. -}
@ -74,7 +73,7 @@ dashboard :: Bool -> Widget
dashboard warnNoScript = do dashboard warnNoScript = do
let repolist = repoListDisplay $ let repolist = repoListDisplay $
mainRepoSelector { nudgeAddMore = True } mainRepoSelector { nudgeAddMore = True }
let transferlist = transfersDisplay warnNoScript let transferlist = transfersDisplay
$(widgetFile "dashboard/main") $(widgetFile "dashboard/main")
getDashboardR :: Handler Html getDashboardR :: Handler Html
@ -94,7 +93,6 @@ getNoScriptR = page "" (Just DashBoard) $ dashboard False
{- Same as DashboardR, except with autorefreshing via meta refresh. -} {- Same as DashboardR, except with autorefreshing via meta refresh. -}
getNoScriptAutoR :: Handler Html getNoScriptAutoR :: Handler Html
getNoScriptAutoR = page "" (Just DashBoard) $ do getNoScriptAutoR = page "" (Just DashBoard) $ do
let ident = NoScriptR
let delayseconds = 3 :: Int let delayseconds = 3 :: Int
let this = NoScriptAutoR let this = NoScriptAutoR
toWidgetHead $(Hamlet.hamletFile $ hamletTemplate "dashboard/metarefresh") toWidgetHead $(Hamlet.hamletFile $ hamletTemplate "dashboard/metarefresh")