Virtual DOM diffing failure when mixing Graphics.Element and Html.

elm-virtual-dom-diff-failure.elm

module VirtualDomFailure where

import Window
import Time
import Html exposing (..)
import Html.Attributes exposing (..)
import Graphics.Element exposing (..)
import Signal exposing (..)

googleLogo = "https://www.google.co.in/images/srpr/logo11w.png"

-- Element. Does DOM diffing correctly
comp1 t w h = flow down [
    image 538 190 googleLogo
    ]

-- Html. Does DOM diffing correctly.
comp2 t w h = div [] [
    text "hello world!",
    img [src googleLogo] []
    ]

-- Mixing Element and Html. Recreates DOM elements repeatedly.
comp3 t w h = div [] [
    fromElement <| comp1 t w h,
    text "hello world!"
    ]

integrate = Signal.foldp (+) 0.0

main = comp1 <~ (Time.fps 60 |> integrate) ~ Window.width ~ Window.height