diff --git a/Sound/SC3/Server/Process.hs b/Sound/SC3/Server/Process.hs
--- a/Sound/SC3/Server/Process.hs
+++ b/Sound/SC3/Server/Process.hs
@@ -2,6 +2,7 @@
 -- either for realtime or non-realtime execution.
 module Sound.SC3.Server.Process (
     module Sound.SC3.Server.Process.Options,
+    OpenTransport(..),
     commandLine,
     EventHandler(..),
     _onBoot,
diff --git a/Sound/SC3/Server/Process/ConfigFile.hs b/Sound/SC3/Server/Process/ConfigFile.hs
--- a/Sound/SC3/Server/Process/ConfigFile.hs
+++ b/Sound/SC3/Server/Process/ConfigFile.hs
@@ -5,7 +5,7 @@
 ) where
     
 import Control.Monad.Error              (MonadError)
-import Control.Monad.State              (State, evalState, execState)
+import Control.Monad.Trans.State        (StateT, evalStateT, execStateT)
 import Data.Accessor
 import Sound.OpenSoundControl           (TCP, UDP)
 import Sound.SC3.Server.Process.Options
@@ -19,7 +19,7 @@
              _         -> fail ("Could not read " ++ (show s))
 
 -- TODO: Add parse error handling
-set :: (Read b) => Map OptionSpec String -> OptionSpec -> Accessor a b -> State a ()
+set :: (Read b, Monad m) => Map OptionSpec String -> OptionSpec -> Accessor a b -> StateT a m ()
 set opts name accessor = do
     case Map.lookup name opts of
         Nothing  -> return ()
@@ -27,15 +27,15 @@
                         Nothing    -> return ()
                         Just value -> putA accessor value
 
-get :: (Show b) => OptionSpec -> Accessor a b -> State a (OptionSpec, String)
+get :: (Show b, Monad m) => OptionSpec -> Accessor a b -> StateT a m (OptionSpec, String)
 get name accessor = do
     value <- getA accessor
     return (name, show value)
 
 -- | Get 'ServerOptions' from an option 'Map'.
 -- Uninitialized fields are taken from 'defaultServerOptions'.
-getServerOptions :: Map OptionSpec String -> ServerOptions
-getServerOptions m = flip execState defaultServerOptions $ do
+getServerOptions :: (Monad m) => Map OptionSpec String -> m ServerOptions
+getServerOptions m = flip execStateT defaultServerOptions $ do
     set m "serverProgram"              _serverProgram
     set m "numberOfControlBusChannels" _numberOfControlBusChannels
     set m "numberOfAudioBusChannels"   _numberOfAudioBusChannels
@@ -53,8 +53,8 @@
 
 -- | Get 'RTOptions' from an option 'Map'.
 -- Uninitialized fields are taken from 'defaultRTOptions'.
-getRTOptions :: Map OptionSpec String -> RTOptions
-getRTOptions m = flip execState defaultRTOptions $ do
+getRTOptions :: (Monad m) => Map OptionSpec String -> m RTOptions
+getRTOptions m = flip execStateT defaultRTOptions $ do
     set m "udpPortNumber"              _udpPortNumber
     set m "tcpPortNumber"              _tcpPortNumber
     set m "useZeroconf"                _useZeroconf
@@ -68,8 +68,8 @@
 
 -- | Get 'NRTOptions' from an option 'Map'.
 -- Uninitialized fields are taken from 'defaultNRTOptions'.
-getNRTOptions :: Map OptionSpec String -> NRTOptions
-getNRTOptions m = flip execState defaultNRTOptions $ do
+getNRTOptions :: Monad m => Map OptionSpec String -> m NRTOptions
+getNRTOptions m = flip execStateT defaultNRTOptions $ do
     set m "commandFilePath"            _commandFilePath
     set m "inputFilePath"              _inputFilePath
     set m "outputFilePath"             _outputFilePath
@@ -82,12 +82,16 @@
 --
 -- TODO: Add error handling.
 fromAssocs :: MonadError CPError m => [(OptionSpec, String)] -> m (ServerOptions, RTOptions, NRTOptions)
-fromAssocs opts = return (getServerOptions m, getRTOptions m, getNRTOptions m)
+fromAssocs opts = do
+    srvo <- getServerOptions m
+    rto  <- getRTOptions m
+    nrto <- getNRTOptions m
+    return (srvo, rto, nrto)
     where m = Map.fromList opts
 
 -- | Convert 'ServerOptions' to association list.
-assocsServerOptions :: ServerOptions -> [(OptionSpec, String)]
-assocsServerOptions options = flip evalState options $ sequence [
+assocsServerOptions :: Monad m => ServerOptions -> m [(OptionSpec, String)]
+assocsServerOptions options = flip evalStateT options $ sequence [
       get "serverProgram"              _serverProgram
     , get "numberOfControlBusChannels" _numberOfControlBusChannels
     , get "numberOfAudioBusChannels"   _numberOfAudioBusChannels
@@ -105,8 +109,8 @@
     ]
 
 -- | Convert 'RTOptions' to association list.
-assocsRTOptions :: RTOptions -> [(OptionSpec, String)]
-assocsRTOptions options = flip evalState options $ sequence [
+assocsRTOptions :: Monad m => RTOptions -> m [(OptionSpec, String)]
+assocsRTOptions options = flip evalStateT options $ sequence [
       get "udpPortNumber"              _udpPortNumber
     , get "tcpPortNumber"              _tcpPortNumber
     , get "useZeroconf"                _useZeroconf
@@ -120,8 +124,8 @@
     ]
 
 -- | Convert 'NRTOptions' to association list.
-assocsNRTOptions :: NRTOptions -> [(OptionSpec, String)]
-assocsNRTOptions options = flip evalState options $ sequence [
+assocsNRTOptions :: Monad m => NRTOptions -> m [(OptionSpec, String)]
+assocsNRTOptions options = flip evalStateT options $ sequence [
       get "commandFilePath"            _commandFilePath
     , get "inputFilePath"              _inputFilePath
     , get "outputFilePath"             _outputFilePath
@@ -132,8 +136,9 @@
 
 -- | Convert server options and optionally realtime options and non-realtime
 -- options to an association list.
-toAssocs :: ServerOptions -> Maybe RTOptions -> Maybe NRTOptions -> [(OptionSpec, String)]
-toAssocs serverOptions rtOptions nrtOptions =
-    assocsServerOptions serverOptions
-    ++ maybe [] assocsRTOptions rtOptions
-    ++ maybe [] assocsNRTOptions nrtOptions
+toAssocs :: Monad m => ServerOptions -> Maybe RTOptions -> Maybe NRTOptions -> m [(OptionSpec, String)]
+toAssocs serverOptions rtOptions nrtOptions = do
+    srvo <- assocsServerOptions serverOptions
+    rto  <- maybe (return []) assocsRTOptions rtOptions
+    nrto <- maybe (return []) assocsNRTOptions nrtOptions
+    return $ srvo++rto++nrto
diff --git a/hsc3-process.cabal b/hsc3-process.cabal
--- a/hsc3-process.cabal
+++ b/hsc3-process.cabal
@@ -1,11 +1,11 @@
 name:               hsc3-process
-version:            0.1.2
+version:            0.2.0
 synopsis:           Create and control scsynth processes
 description:        Create and control scsynth processes.
 license:            GPL
 license-file:       LICENSE
 category:           Sound
-copyright:          Copyright (c) Stefan Kersten 2008
+copyright:          Copyright (c) Stefan Kersten 2008-2009
 author:             Stefan Kersten
 maintainer:         Stefan Kersten
 stability:          provisional
@@ -30,12 +30,13 @@
   build-depends:    base >= 3 && < 5,
                     ConfigFile == 1.0.*,
                     containers == 0.2.*,
-                    data-accessor == 0.1.*,
-                    data-accessor-template == 0.1.*,
+                    data-accessor == 0.2.*,
+                    data-accessor-template == 0.2.*,
                     hosc == 0.8.*,
                     mtl == 1.1.*,
                     process == 1.0.*,
-                    template-haskell == 2.3.*
+                    template-haskell == 2.3.*,
+                    transformers == 0.1.*
 
 source-repository head
   type:             darcs