diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2017-11-02 13:46:31 +0100 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2017-11-02 13:47:01 +0100 |
| commit | 25c120d01c8d133ad8b481941de2ebbadf373f4e (patch) | |
| tree | 731cdc9030b7dab5568092d91fb64f9a75fe0f4f /src/Render.hs | |
| parent | 7fb8756787ae8aaeba4fa0d1b2eeb703516d8c23 (diff) | |
| download | comatose-25c120d01c8d133ad8b481941de2ebbadf373f4e.tar.gz comatose-25c120d01c8d133ad8b481941de2ebbadf373f4e.tar.bz2 comatose-25c120d01c8d133ad8b481941de2ebbadf373f4e.zip | |
Show feature category
Just the feature name is not enough information in some cases.
Diffstat (limited to 'src/Render.hs')
| -rw-r--r-- | src/Render.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/Render.hs b/src/Render.hs index 7b8bab2..1b22270 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -33,8 +33,15 @@ resolveDoi q = "http://doi.org/" ++ q protofeatures :: Database -> Protocol -> Html () protofeatures _ p | (M.size $ pfeatures p) == 0 = mempty protofeatures db p = do - dt_ "Features" - dd_ $ ul_ [class_ "features list-inline"] $ forM_ (sort $ M.keys $ pfeatures p) (\x -> li_ [data_ "id" (T.pack x), class_ "list-inline-item"] $ toHtml $ maybe ("" :: String) fname $ M.lookup x (dfeatures db)) + dt_ "Features" + dd_ $ ul_ [class_ "features"] $ forM_ (sort $ M.keys $ pfeatures p) item + where + item :: String -> Html () + item name = li_ [data_ "id" (T.pack name)] $ do + toHtml $ maybeLookup $ getFeatureBase name + ": " + toHtml $ maybeLookup name + maybeLookup name = maybe ("" :: String) fname $ M.lookup name (dfeatures db) -- |List of protocol publications protopapers :: [T] -> Html () |