diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-15 17:45:53 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-15 17:45:53 +1000 |
| commit | 265951e087809e8a45802bc00349d198f3515b19 (patch) | |
| tree | 29f4c4bfa1a520c0e9754cb48c2c11d98e8d254f /app/Main.hs | |
| parent | 33f47d6d86246160cceb14804c6bd9746aad3b1e (diff) | |
[server] rendering some templates within infobox
also adjusted the parsers to not have overlapping skipspace
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 579ec20..74a03eb 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -183,7 +183,7 @@ getWpSummaryFull name = fmap (TE.decodeUtf8 . BSL.toStrict) (liftIO $ getApiWpSummary name) getInfobox :: Text -> Handler (HM.HashMap Text Text) -getInfobox name = infobox <$> getWikiFormat name +getInfobox name = fmap (HM.fromList . infobox) (getWikiFormat name) searchYt :: Text -> Handler [Video] searchYt query = do |