mgsloan

GeocodeResponse latLng <- callJsonEndpoint $ GeocodeEndpoint targetAddress False
let venuesTrendingEndpoint = VenuesTrendingEndpoint latLng Nothing Nothing `authorizeWith` creds
VenuesTrendingResponse venues <- callJsonEndpoint venuesTrendingEndpoint
let printVenue v = putStrLn $ "- " ++ name v
mapM_ printVenue venues

mgsloan

#!/bin/bash

ext=$1

rsync -aL --delete ~/fpco/ide/ ~/build/fpco-$ext/

cd ~/build/fpco-$ext

perl -i -pe "s~/fpco/ide/~/build/fpco-$ext/~g;"         \
    .hsenvs/*/.hsenv/bin/activate                       \

mgsloan

module Bar where

bar = answer * 20

mgsloan

zipProducers :: Producer a m r -> Producer b m r -> Producer (a, b) m r
zipProducers (Pure r) _ = return r
zipProducers _ (Pure r) = return r

zipProducers (M m1) (M m2) = lift m1 >>= \p1 -> lift m2 >>= \p2 -> zipProducers p1 p2
zipProducers (M m1) p2     = lift m1 >>= \p1 ->                    zipProducers p1 p2
zipProducers p1     (M m2) =                    lift m2 >>= \p2 -> zipProducers p1 p2

zipProducers (Await f1) (Await f2) = zipProducers (f1 ()) (f2 ())
zipProducers (Await f1) p2         = zipProducers (f1 ()) p2