diff --git a/agentx.cabal b/agentx.cabal
--- a/agentx.cabal
+++ b/agentx.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                agentx
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            AgentX protocol for snmp subagents
 description:         Native implementation agentx protocol (rfc2741)       
 license:             BSD3
@@ -15,39 +15,6 @@
 -- extra-source-files:  
 cabal-version:       >=1.10
 
-executable agentx
-  main-is:             Main.hs
-  build-depends:       base >=4.6 && <4.8
-                     , snmp
-                     , binary
-                     , bytestring
-                     , bitwise
-                     , network
-                     , fclabels
-                     , Diff
-                     , mtl
-                     , transformers
-                     , time
-                     , containers
-                     , data-default
-                     , network-info
-                     , safe
-                     , pipes-network
-                     , pipes
-                     , pipes-concurrency
-  hs-source-dirs:      src
-  ghc-options:   -Wall -threaded -rtsopts -auto-all -caf-all
-  default-language:    Haskell2010
--- 
--- executable client
---   main-is:             Client.hs
---   build-depends:       base >=4.6 && <4.8
---                      , snmp
---                      , bytestring
---   hs-source-dirs:      src
---   ghc-options:   -Wall -threaded -rtsopts -auto-all -caf-all
---   default-language:    Haskell2010
-
 library
   exposed-modules:     Network.Protocol.Snmp.AgentX, Network.Protocol.Snmp.AgentX.MIBTree, Network.Protocol.Snmp.AgentX.Packet
   other-modules: Network.Protocol.Snmp.AgentX.MIBTree.Tree, Network.Protocol.Snmp.AgentX.MIBTree.MIBTree, Network.Protocol.Snmp.AgentX.MIBTree.Types,
@@ -67,7 +34,6 @@
                      , time
                      , data-default
                      , containers
-                     , network-info
                      , safe
                      , pipes-network
                      , pipes
diff --git a/src/Main.hs b/src/Main.hs
deleted file mode 100644
--- a/src/Main.hs
+++ /dev/null
@@ -1,82 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE RankNTypes #-}
-module Main where
-
-import Network.Protocol.Snmp.AgentX 
-import qualified Data.ByteString as BS
-import Data.ByteString (ByteString)
-import Data.Fixed (div')
-import Data.Time.Clock.POSIX (getPOSIXTime)
-import Control.Applicative ((<$>))
-import Control.Monad.State
-import Data.IORef
-
-
-
-str :: ByteString -> PVal
-str x = rsValue (String x)
-
-now :: PVal
-now = rdValue $  TimeTicks . flip div' 1 <$> liftIO getPOSIXTime
-
-rws :: IORef Value -> PVal
-rws io = rwValue readV commit test undo
-  where
-    test (String x) 
-      | BS.length x < 10 = return NoTestError
-      | otherwise = return TooBig
-    test _ = return WrongType
-    commit v = do
-        writeIORef io v
-        return NoCommitError
-    undo _ = return NoUndoError
-    readV = readIORef io
-
-rwi :: IORef Value -> PVal
-rwi io = rwValue readV commit test undo
-  where
-    test (Integer x) 
-      | x < 5 = return NoTestError
-      | otherwise = return TooBig
-    test _ = return WrongType
-    commit v = do
-        writeIORef io v
-        return NoCommitError
-    undo _ = return NoUndoError
-    readV = readIORef io
-
-dynTree :: IORef Value -> Update
-dynTree i = Update $ do
-    Integer count <- liftIO $ readIORef i
-    return $ concatMap fun [0 .. count]
-    where
-    fun x = [ mkObject (fromIntegral x) "trees" ("tree" ++ show x) Nothing
-            , mkObjectType 0 ("tree" ++ show x) "abr" Nothing (str "abr")
-            , mkObjectType 1 ("tree" ++ show x) "abrvalg" Nothing (str "abrvalg")
-            ]
-
-ver :: Maybe Context
-ver = Just "version"
-
-simpleTree :: IORef Value -> IORef Value -> [MIB]
-simpleTree m i = 
-      [ mkObject 0 "Fixmon" "about" Nothing
-      , mkObjectType 0 "about" "name" Nothing $ rsValue (String "Fixmon agent")
-      , mkObjectType 1 "about" "version" Nothing $ rsValue (String "0.0.1")
-      , mkObjectType 1 "about" "version" ver $ rsValue (String "Alpha")
-      , mkObjectType 2 "about" "comment" Nothing (rws m) 
-      , mkObject 1 "Fixmon" "dyn" Nothing
-      , mkObjectType 0 "dyn" "counter" Nothing (rwi i)
-      , mkObject 1 "dyn" "trees" (Just $ dynTree i)
-      ]
-
-tree :: IO [MIB]
-tree = do
-    m <- newIORef (String "init")
-    i <- newIORef (Integer 0)
-    return $ simpleTree m i
-    
-main :: IO ()
-main = agent "/var/agentx/master" [1,3,6,1,4,1,44729] Nothing =<< tree
-