summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-25 00:02:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-25 00:02:48 -0400
commit87b5cd0a4d304fb4a08132ccb42a1796fe1df049 (patch)
tree095cc4f14bfcb5ebd3f4d4aabec7809442c9d62e /Utility
parent1edaac103106f96af09cc6ff2526923022eff7f8 (diff)
golf
Diffstat (limited to 'Utility')
-rw-r--r--Utility/Quvi.hs10
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