minor cleanupHEADmaster

1 files changed, 5 insertions, 4 deletions

diff --git a/src/Trivstream/Types.hs b/src/Trivstream/Types.hs
index 8cdd592..6dbd949 100644
--- a/src/Trivstream/Types.hs
+++ b/src/Trivstream/Types.hs
@@ -7,6 +7,7 @@ module Trivstream.Types
   , SampleRate(..)
   , Configuration(..)
   , Mode (..)
+  , module Data.Default.Class
   ) where
 
 
@@ -32,7 +33,7 @@ instance Serialize ChannelPosition
 
 
 data AudioBackend = Pulse | Jack
-  deriving (Enum, Eq, Generic)
+  deriving (Enum, Eq, Generic, Show, Read)
 
 instance Default AudioBackend where
   def = Pulse
@@ -54,7 +55,7 @@ instance Serialize SampleRate
 data AudioConfig = AudioConfig
   { _aBackend  :: AudioBackend
   , _aChannels :: [Maybe ChannelPosition]
-  , _aRate     :: SampleRate
+  , _aRate     :: Maybe SampleRate
   } deriving (Generic)
 makeLenses ''AudioConfig
 
@@ -62,14 +63,14 @@ instance Default AudioConfig where
   def = AudioConfig
     { _aBackend  = def
     , _aChannels = [Just $ ChannelNormal PanLeft, Just $ ChannelNormal PanRight]
-    , _aRate     = def
+    , _aRate     = Just def
     }
 
 instance Serialize AudioConfig
 
 
 data Mode = Server | Client
-  deriving (Enum, Eq, Generic, Show)
+  deriving (Enum, Eq, Generic, Show, Read)
 
 instance Default Mode where
   def = Server