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

build fix with pairing disabled

Browse source
This commit is contained in:
Joey Hess 2012-10-26 12:56:19 -04:00
parent 8916ff1a6c
commit 5544ca2fb8
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Assistant/WebApp/Configurators/Pairing.hs
View file

@ -177,12 +177,6 @@ secretProblem s
toSecret :: Text -> Secret toSecret :: Text -> Secret
toSecret s = B.fromChunks [T.encodeUtf8 $ T.toLower $ T.filter isAlphaNum s] toSecret s = B.fromChunks [T.encodeUtf8 $ T.toLower $ T.filter isAlphaNum s]
pairPage :: Widget -> Handler RepHtml
pairPage w = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Pairing"
w
{- From Dickens -} {- From Dickens -}
sampleQuote :: Text sampleQuote :: Text
sampleQuote = T.unwords sampleQuote = T.unwords
@ -199,3 +193,9 @@ noPairing = pairPage $
$(widgetFile "configurators/pairing/disabled") $(widgetFile "configurators/pairing/disabled")
#endif #endif
pairPage :: Widget -> Handler RepHtml
pairPage w = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Pairing"
w