M

anus.hs

doWork :: IO ()
doWork = do
  forkIO sender
  forkIO receiver
  worker
 where
  receiver = scrobbler $
    announce . rmap (Successes :: [Track] -> Successes Track) deserialize . receive (PortNumber 7447)
  sender = scrobbler $
    send "localhost" (PortNumber 4774) . serialize . candidate


worker :: IO ()
worker = scrobbler $
  send "localhost" (PortNumber 7447) .
  serialize . scrobble credentials .
  announce . contest .
  announce . updateNowPlaying credentials . deserialize .
  receive (PortNumber 4774)