Space leak when using hold function

When I input mempty as a signal into hold function, space leak occurs.
You can check the problem with the following code.

```
{-# LANGUAGE Arrows #-}
module Main where

import Control.Arrow
import Control.Wire
import Control.Wire.Controller

main = control $ proc _ -> do
  _ <- hold () -< mempty
  returnA -< never
```
