From 87b5cd0a4d304fb4a08132ccb42a1796fe1df049 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Nov 2013 00:02:48 -0400 Subject: golf --- Utility/Quvi.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'Utility') diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs index 8ae8e0c06..4039167ac 100644 --- a/Utility/Quvi.hs +++ b/Utility/Quvi.hs @@ -46,11 +46,13 @@ instance FromJSON Link where parseEnum :: String -> Maybe Page parseEnum s = Page <$> get "QUVI_MEDIA_PROPERTY_TITLE" - <*> ((:[]) <$> link) + <*> ((:[]) <$> + ( Link + <$> get "QUVI_MEDIA_STREAM_PROPERTY_CONTAINER" + <*> get "QUVI_MEDIA_STREAM_PROPERTY_URL" + ) + ) where - link = Link - <$> get "QUVI_MEDIA_STREAM_PROPERTY_CONTAINER" - <*> get "QUVI_MEDIA_STREAM_PROPERTY_URL" get = flip M.lookup m m = M.fromList $ map (separate (== '=')) $ lines s -- cgit v1.2.3