Cleanup

src/Dodge/Data/Button.hs

@@ -32,7 +32,6 @@ data Button = Button
     , _btRot :: Float
     , _btEvent :: ButtonEvent
     , _btID :: Int
---    , _btTermMID :: Maybe Int
     }
 
 makeLenses ''Button

src/Dodge/Data/SoundOrigin.hs

@@ -34,7 +34,7 @@ data SoundOrigin
     | GlassBreakSound Int
     | MaterialSound Material Int
     | TeleSound Int
-    | LeverSound Int
+    | ButtonSound Int
     | Explosion Int
     | Tap Int
     | EBSound Int