Fix build for other packages

src/IHaskell/Eval/Widgets.hs

@@ -171,7 +171,7 @@ data WidgetDisplay = WidgetDisplay MessageHeader [DisplayData]
 
 instance ToJSON WidgetDisplay where
   toJSON (WidgetDisplay replyHeader ddata) =
-    let pbval = toJSON $ PublishDisplayData replyHeader ddata
+    let pbval = toJSON $ PublishDisplayData replyHeader ddata Nothing
     in toJSON $ IPythonMessage replyHeader pbval DisplayDataMessage
 
 -- Override toJSON for ClearOutput

src/IHaskell/Publish.hs

@@ -67,7 +67,7 @@ publishResult send replyHeader displayed updateNeeded poutput upager result = do
     sendOutput (ManyDisplay manyOuts) = mapM_ sendOutput manyOuts
     sendOutput (Display outs) = do
       hdr <- dupHeader replyHeader DisplayDataMessage
-      send $ PublishDisplayData hdr $ map (convertSvgToHtml . prependCss) outs
+      send $ PublishDisplayData hdr (map (convertSvgToHtml . prependCss) outs) Nothing
 
     convertSvgToHtml (DisplayData MimeSvg s) = html $ makeSvgImg $ base64 $ E.encodeUtf8 s
     convertSvgToHtml x = x