diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 15:33:15 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 15:33:15 +0000 |
| commit | d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0 (patch) | |
| tree | 4e3245ad820c769187615ae95b9f177d24bfc9dc /webgui/src | |
| parent | c09c2786d0654f144dab103292c47411ff1afa9a (diff) | |
| download | thermoprint-d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0.tar thermoprint-d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0.tar.gz thermoprint-d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0.tar.bz2 thermoprint-d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0.tar.xz thermoprint-d687710cb8f5a5ceb605d9859cd8ba76fb2c45a0.zip | |
Style tweaks
Diffstat (limited to 'webgui/src')
| -rw-r--r-- | webgui/src/Main.hs | 4 |
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 | |||
| 154 | on UI.valueChange text $ \str -> modifyStatus (\x -> x { ePrintout = bbcode $ T.pack str }) | 154 | on UI.valueChange text $ \str -> modifyStatus (\x -> x { ePrintout = bbcode $ T.pack str }) |
| 155 | 155 | ||
| 156 | return title # sink UI.value (fromMaybe "" . eTitle <$> editorStatus) | 156 | return title # sink UI.value (fromMaybe "" . eTitle <$> editorStatus) |
| 157 | return text # sink UI.text (eText <$> editorStatus) | 157 | return text # sink UI.value (eText <$> editorStatus) |
| 158 | return status # sink TP.text (toStatusString <$> editorStatus) | 158 | return status # sink TP.text (toStatusString <$> editorStatus) |
| 159 | return bbcodeStatus # sink TP.text (toStatusString' . ePrintout <$> editorStatus) | 159 | return bbcodeStatus # sink TP.text (toStatusString' . ePrintout <$> editorStatus) |
| 160 | 160 | ||
| @@ -209,7 +209,7 @@ setup Config{..} window (split -> (socketErr, dataUpdate)) = void $ do | |||
| 209 | toTable :: Map DraftId (Maybe DraftTitle) -> UI [Element] | 209 | toTable :: Map DraftId (Maybe DraftTitle) -> UI [Element] |
| 210 | toTable = mapM toLine . Map.toList | 210 | toTable = mapM toLine . Map.toList |
| 211 | 211 | ||
| 212 | toLine (id@(show -> tId), fromMaybe "" . fmap T.unpack -> title) = do | 212 | toLine (id@(DraftId (show -> tId)), fromMaybe "" . fmap T.unpack -> title) = do |
| 213 | id' <- UI.td # set TP.text tId | 213 | id' <- UI.td # set TP.text tId |
| 214 | title' <- UI.td # set TP.text title | 214 | title' <- UI.td # set TP.text title |
| 215 | delete <- UI.button | 215 | delete <- UI.button |