Style tweaks

1 files changed, 2 insertions, 2 deletions

diff --git a/webgui/src/Main.hs b/webgui/src/Main.hs
index 44bcb88..537dcf1 100644
--- a/webgui/src/Main.hs
+++ b/webgui/src/Main.hs
@@ -154,7 +154,7 @@ setup Config{..} window (split -> (socketErr, dataUpdate)) = void $ do
       on UI.valueChange text $ \str -> modifyStatus (\x -> x { ePrintout = bbcode $ T.pack str })
 
       return title # sink UI.value (fromMaybe "" . eTitle <$> editorStatus)
-      return text # sink UI.text (eText <$> editorStatus)
+      return text # sink UI.value (eText <$> editorStatus)
       return status # sink TP.text (toStatusString <$> editorStatus)
       return bbcodeStatus # sink TP.text (toStatusString' . ePrintout <$> editorStatus)
 
@@ -209,7 +209,7 @@ setup Config{..} window (split -> (socketErr, dataUpdate)) = void $ do
         toTable :: Map DraftId (Maybe DraftTitle) -> UI [Element]
         toTable = mapM toLine . Map.toList 
   
-        toLine (id@(show -> tId), fromMaybe "" . fmap T.unpack -> title) = do
+        toLine (id@(DraftId (show -> tId)), fromMaybe "" . fmap T.unpack -> title) = do
           id' <- UI.td # set TP.text tId
           title' <- UI.td # set TP.text title
           delete <- UI.button