[Add two missing type signatures.
Lemmih <lemmih@gmail.com>**20090117000806
 Ignore-this: d7a0784a894947f73a3145953eb6923
] hunk ./E/Program.hs 116
+programMapDs :: Monad m => ((TVr, E) -> m (TVr, E)) -> Program -> m Program
hunk ./E/Program.hs 123
+programMapDs_ :: Monad m => ((TVr,E) -> m ()) -> Program -> m ()