Add looping sound, add sound to terminals

src/Sound/Data.hs

@@ -8,7 +8,13 @@ import Control.Lens
 import Geometry.Data
 import Data.Word (Word8)
 import Data.Int (Int16)
-data SoundStatus 
+data SoundStatus = SoundStatus
+    {_playStatus :: PlayStatus
+    ,_isLooping  :: Bool
+    }
+  deriving (Eq,Ord,Show)
+-- TODO make this more sensible (use product rather than union in some cases)
+data PlayStatus 
     = JustStartedPlaying
     | Playing
     | ToStart
@@ -32,3 +38,4 @@ data Sound = Sound
   deriving (Eq,Ord,Show)
 makeLenses ''SoundData
 makeLenses ''Sound
+makeLenses ''SoundStatus