From d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 24 Feb 2016 15:33:15 +0000 Subject: Style tweaks --- webgui/src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'webgui/src/Main.hs') 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 -- cgit v1.2.3