diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs index 8ae8e0c064..4039167ac6 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