Add looping sound, add sound to terminals

2022-03-16 09:23:17 +00:00
parent 5623747b01
commit 5aeb04ba05
24 changed files with 156 additions and 133 deletions
@@ -1,4 +1,4 @@
-{-# LANGUAGE TupleSections #-}
+--{-# LANGUAGE TupleSections #-}
 module Dodge.Placement.Instance.Terminal 
    ( putTerminal
    ) where
@@ -17,7 +17,7 @@ import Shape
 import Data.Maybe

 putTerminal :: (GenParams -> TerminalParams) -> Placement
-putTerminal f = PlacementGenUpdate g $ ps0PushPS (PutButton $ thebutton)
+putTerminal f = PlacementGenUpdate g $ ps0PushPS (PutButton thebutton)
    $ \pl -> Just $ pt0 (PutMachine terminalColor (reverse $ square 10) defaultMachine
    { _mcDraw = drawTerminal
    , _mcHP = 100