widgetNetwork :: Widget a -> WidgetNetwork a
widgetNetwork wdg = WidgetNetwork {
    widgetNetworkRealize = \realize -> do
        (widget, result) <- widgetRealize wdg
        liftIO (realize widget)
        return result
}
widgetNetwork :: Widget a -> WidgetNetwork a
widgetNetwork wdg = WidgetNetwork {
    widgetNetworkRealize = \realize -> do
        (widget, result) <- widgetRealize wdg
        liftIO (realize widget)
        return result
}
widgetNetwork wdg = WidgetNetwork {
    widgetNetworkRealize = \realize -> do
        (widget, result) <- widgetRealize wdg
        liftIO (realize widget)
        return result
}