reorg templates
This commit is contained in:
parent
58dfa3fa5b
commit
5fed026bcd
11 changed files with 8 additions and 8 deletions
|
@ -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])
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue