From 265951e087809e8a45802bc00349d198f3515b19 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 15 Sep 2022 17:45:53 +1000 Subject: [server] rendering some templates within infobox also adjusted the parsers to not have overlapping skipspace --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/Main.hs') 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 -- cgit v1.2.3