runhaskell ghc panic running netwire 2 demo

[gareth.rowlands]

Running the netwire 2 demo at the URL below with runhaskell gives a ghc panic.

Steps to reproduce:

1> cabal update; cabal install netwire-2.0.1
...
2> get http://hpaste.org/54025 into demo.hs
3> runhaskell .\demo.hs
ghc: panic! (the 'impossible' happened)
  (GHC version 7.0.3 for i386-unknown-mingw32):
        addTickHsExpr
    (|/\(@ a{tv a1hy} [sk]).
      (netwire-2.0.1:Control.Wire.Trans.Sample.sample{v reZ} [gid])
      @ a{tv a1hy} [sk]
      @ ghc-prim:GHC.Types.Double{(w) tc 3u}
      @ ghc-prim:GHC.Unit.(){(w) tc 40}
      @ ghc-prim:GHC.Types.Double{(w) tc 3u}
      @ (base:Control.Arrow.Kleisli{tc rcq}
           <nt>ghc-prim:GHC.Types.IO{tc 32I})
        $dArrowChoice{v a1l8} [lid]
        $dArrowClock{v a1l9} [lid]
        $dNum{v a1la} [lid]
        $dOrd{v a1lb} [lid]
        co{tv a1lc} [co]
        (((netwire-2.0.1:Control.Wire.Prefab.Random.noise{v rey} [gid])
          @ (base:Control.Arrow.Kleisli{tc rcq}
               <nt>ghc-prim:GHC.Types.IO{tc 32I})
          @ ghc-prim:GHC.Types.Double{(w) tc 3u}
          @ ghc-prim:GHC.Unit.(){(w) tc 40}
          @ ghc-prim:GHC.Unit.(){(w) tc 40}
            $dArrowRandom{v a1or} [lid]
            $dRandom{v a1os} [lid] -< ghc-prim:GHC.Unit.(){(w) v 71} [gid[DataCon]]))|)

In contrast, compiling normally and running works fine:
 ghc --make demo.hs; .\demo

24> ghc --version
The Glorious Glasgow Haskell Compilation System, version 7.0.3
OS: Windows 7 x64 SP1

[igloo]

Would it be possible for you to make a self-contained testcase, please? I think there's a good chance this is fixed already, but I'm having trouble reproducing it.

[igloo]

No response from submitter, so assuming this is fixed.