summaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
Diffstat (limited to 'app')
-rw-r--r--app/Main.hs2
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