diff --git a/hplayground.cabal b/hplayground.cabal
--- a/hplayground.cabal
+++ b/hplayground.cabal
@@ -1,5 +1,5 @@
 name: hplayground
-version: 0.1.0.2
+version: 0.1.0.3
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -26,6 +26,8 @@
 
 
 library
+   hs-source-dirs: src .
+   exposed-modules: Haste.HPlay.View  Haste.HPlay.Cell
    if flag(haste-inst)
     build-depends: base >4.0 && <5, transformers -any,
                    containers -any, data-default -any, monads-tf,
@@ -35,8 +37,8 @@
                    containers -any, data-default -any, monads-tf,
                    haste-compiler -any, haste-perch -any
 
-    hs-source-dirs: src .
-    exposed-modules: Haste.HPlay.View  Haste.HPlay.Cell
+
+
 
 --executable Main
 --    build-depends: base >4.0 && <5, transformers -any, monads-tf -any,
diff --git a/src/Haste/HPlay/View.hs b/src/Haste/HPlay/View.hs
--- a/src/Haste/HPlay/View.hs
+++ b/src/Haste/HPlay/View.hs
@@ -1177,7 +1177,9 @@
 
 data UpdateMethod= Append | Prepend | Insert deriving Show
 
-
+-- | run the widget as the content of the element with the given id. The content can
+-- be appended, prepended to the previous content or it can be the only content depending on the
+-- update method.
 at :: ElemID -> UpdateMethod -> Widget a -> Widget  a
 at id method w= View $ do
  FormElm render mx <- (runView w)
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,16 +1,13 @@
 {-# LANGUAGE  DeriveDataTypeable #-}
 module Main where
 import Haste
-import Haste.DOM(withElem)
 import Haste.Foreign
-import Haste.Prim
 import Haste.Graphics.Canvas
 import Haste.HPlay.View
 import Haste.HPlay.Cell as Cell
-import Haste.HPlay.Console
 import Control.Applicative
-import Control.Monad.State
 import Control.Monad
+import Control.Monad.IO.Class
 import Data.Monoid
 import Data.Typeable
 import Prelude hiding (div,all,id,print,getChar, putStr, putStrLn,getLine)