nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

extended measures: rm audio

Browse source
This commit is contained in:
Astro 2016-03-18 22:10:33 +01:00
parent a5b2dca922
commit 457a81c63a
5 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Demand.hs
View file

@ -19,8 +19,4 @@ import Import
getDemandR :: Int -> Handler Html getDemandR :: Int -> Handler Html
getDemandR level = defaultLayout $ do getDemandR level = defaultLayout $ do
let audio = lookup level $ [1..] `zip` map StaticR
[audio_air_alarm_mp3,
audio_nuclear_alarm_mp3,
audio_alarm_loud_pulsating_mp3]
$(widgetFile "demand") $(widgetFile "demand")

BIN
static/audio/air-alarm.mp3
View file

Binary file not shown.

BIN
static/audio/alarm-loud-pulsating.mp3
View file

Binary file not shown.

BIN
static/audio/nuclear-alarm.mp3
View file

Binary file not shown.

3
templates/demand.hamlet
View file

@ -2,6 +2,3 @@ $doctype 5
<p #demand-warning> <p #demand-warning>
_{MsgPurchaseDebtful} _{MsgPurchaseDebtful}
$maybe src <- audio
<audio src=@{src} autoplay style="display:hidden">