extended measures: rm audio

2016-03-18 22:10:33 +01:00 · 2016-03-18 22:10:33 +01:00 · 457a81c63a
parent a5b2dca922
commit 457a81c63a
5 changed files with 0 additions and 7 deletions
--- a/Handler/Demand.hs
+++ b/Handler/Demand.hs
@ -19,8 +19,4 @@ import Import

 getDemandR :: Int -> Handler Html
 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")
--- a/static/audio/air-alarm.mp3
+++ b/static/audio/air-alarm.mp3
--- a/static/audio/alarm-loud-pulsating.mp3
+++ b/static/audio/alarm-loud-pulsating.mp3
--- a/static/audio/nuclear-alarm.mp3
+++ b/static/audio/nuclear-alarm.mp3
--- a/templates/demand.hamlet
+++ b/templates/demand.hamlet
@ -2,6 +2,3 @@ $doctype 5

 <p #demand-warning>
  _{MsgPurchaseDebtful}
-
-$maybe src <- audio
-  <audio src=@{src} autoplay style="display:hidden">