reorg templates

This commit is contained in:
Joey Hess 2012-07-31 01:24:49 -04:00
parent 58dfa3fa5b
commit 5fed026bcd
11 changed files with 8 additions and 8 deletions

View file

@ -38,7 +38,7 @@ introDisplay ident = do
let notenough = n < 2
let barelyenough = n == 2
let morethanenough = n > 2
$(widgetFile "intro")
$(widgetFile "configurators/intro")
lift $ modifyWebAppState $ \s -> s { showIntro = False }
where
counter = map show ([1..] :: [Int])