diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-25 00:02:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-25 00:02:48 -0400 |
| commit | 87b5cd0a4d304fb4a08132ccb42a1796fe1df049 (patch) | |
| tree | 095cc4f14bfcb5ebd3f4d4aabec7809442c9d62e /Utility/Quvi.hs | |
| parent | 1edaac103106f96af09cc6ff2526923022eff7f8 (diff) | |
golf
Diffstat (limited to 'Utility/Quvi.hs')
| -rw-r--r-- | Utility/Quvi.hs | 10 |
1 files changed, 6 insertions, 4 deletions
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 |