mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

golf

Browse source
This commit is contained in:
Joey Hess 2013-11-25 00:02:48 -04:00
parent 325f220058
commit 46ee2ea2e6
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Utility/Quvi.hs
View file

@ -46,11 +46,13 @@ instance FromJSON Link where
parseEnum :: String -> Maybe Page parseEnum :: String -> Maybe Page
parseEnum s = Page parseEnum s = Page
<$> get "QUVI_MEDIA_PROPERTY_TITLE" <$> get "QUVI_MEDIA_PROPERTY_TITLE"
<*> ((:[]) <$> link) <*> ((:[]) <$>
( Link
<$> get "QUVI_MEDIA_STREAM_PROPERTY_CONTAINER"
<*> get "QUVI_MEDIA_STREAM_PROPERTY_URL"
)
)
where where
link = Link
<$> get "QUVI_MEDIA_STREAM_PROPERTY_CONTAINER"
<*> get "QUVI_MEDIA_STREAM_PROPERTY_URL"
get = flip M.lookup m get = flip M.lookup m
m = M.fromList $ map (separate (== '=')) $ lines s m = M.fromList $ map (separate (== '=')) $ lines s