reorg templates

This commit is contained in:
Joey Hess 2012-09-08 23:32:08 -04:00
parent 6e60b08060
commit f62cc48482
10 changed files with 10 additions and 10 deletions

View file

@ -74,7 +74,7 @@ getInprogressPairR :: Text -> Handler RepHtml
getInprogressPairR secret = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Pairing"
$(widgetFile "configurators/inprogresspairing")
$(widgetFile "configurators/pairing/inprogress")
#else
getInprogressPairR _ = noPairing
#endif
@ -123,7 +123,7 @@ promptSecret msg cont = bootstrap (Just Config) $ do
u <- T.pack <$> liftIO getUserName
let sameusername = username == u
let authtoken = webAppFormAuthToken
$(widgetFile "configurators/pairing")
$(widgetFile "configurators/pairing/prompt")
{- This counts unicode characters as more than one character,
- but that's ok; they *do* provide additional entropy. -}
@ -155,6 +155,6 @@ noPairing :: Handler RepHtml
noPairing = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Pairing"
$(widgetFile "configurators/nopairing")
$(widgetFile "configurators/pairing/disabled")
#endif