Specialize stmt

Shimuuar · Jul 24, 2013 · f4eb1ca · f4eb1ca
1 parent b224291
commit f4eb1ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/UI/TclTk/Builder.hs b/UI/TclTk/Builder.hs
@@ -169,7 +169,7 @@ castBuilder f (TclBuilderT m)
   = TclBuilderT $ mapReaderT (mapWriterT (liftM $ id *** map (contramap f))) m
 
 -- | Add single tcl statemetn
-stmt :: Monad m => Tcl p -> TclBuilderT x p m ()
+stmt :: Tcl p -> GUI t p ()
 stmt = tell . (:[])
 
 -- | Generate fresh variable