This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 \ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Bar where | |
bar = answer * 20 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |