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

whitespace fixes

Browse source
This commit is contained in:
Joey Hess 2012-12-13 00:45:27 -04:00
parent f87a781aa6
commit 0d50a6105b
33 changed files with 97 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -233,8 +233,8 @@ promptSecret msg cont = pairPage $ do
((result, form), enctype) <- lift $
runFormGet $ renderBootstrap $
InputSecret <$> aopt textField "Secret phrase" Nothing
case result of
FormSuccess v -> do
case result of
FormSuccess v -> do
let rawsecret = fromMaybe "" $ secretText v
let secret = toSecret rawsecret
case msg of
@ -247,7 +247,7 @@ promptSecret msg cont = pairPage $ do
then cont rawsecret secret
else showform form enctype $ Just
"That's not the right secret phrase."
_ -> showform form enctype Nothing
_ -> showform form enctype Nothing
where
showform form enctype mproblem = do
let start = isNothing msg