| #lang racket | |
| (require parser-tools/lex | |
| (prefix-in re- parser-tools/lex-sre) | |
| parser-tools/yacc) | |
| (provide (all-defined-out)) | |
| (define-tokens a (NUM VAR)) | |
| (define-empty-tokens b (+ - EOF LET IN)) | |
| (define-lex-trans number | |
| (syntax-rules () |
| import java.io.*; | |
| public class TestProcessIO { | |
| public static boolean isAlive(Process p) { | |
| try { | |
| p.exitValue(); | |
| return false; | |
| } | |
| catch (IllegalThreadStateException e) { |
It's not immediately obvious how to pull down the code for a PR and test it locally. But it's pretty easy. (This assumes you have a remote for the main repo named upstream.)
Getting the PR code
Make note of the PR number. For example, Rod's latest is PR #37: Psiphon-Labs/psiphon-tunnel-core#37
Fetch the PR's pseudo-branch (or bookmark or rev pointer whatever the word is), and give it a local branch name. Here we'll name it pr37:
$ git fetch upstream pull/37/head:pr37
| {-# LANGUAGE NoMonomorphismRestriction #-} | |
| {-# LANGUAGE TemplateHaskell #-} | |
| {-# OPTIONS_GHC -fwarn-missing-methods #-} | |
| module Err where | |
| import Control.Lens | |
| import Control.Monad.Error | |
| import Control.Monad.Error.Lens | |
| -- Here is a fairly typical situation, where we have low level errors in certain |
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <!-- Add leaflet css --> | |
| <link | |
| rel="stylesheet" href="https://unpkg.com/leaflet@1.5.1/dist/leaflet.css" | |
| integrity="sha512-xwE/Az9zrjBIphAcBb3F6JVqxf46+CDLwfLMHloNu6KEQCAWi6HcDUbeOfBIptF7tcCzusKFjFw2yuvEpDL9wQ==" | |
| crossorigin="" | |
| /> |
| API | Status Codes |
|---|---|
| [Twitter][tw] | 200, 304, 400, 401, 403, 404, 406, 410, 420, 422, 429, 500, 502, 503, 504 |
| [Stripe][stripe] | 200, 400, 401, 402, 404, 429, 500, 502, 503, 504 |
| [Github][gh] | 200, 400, 422, 301, 302, 304, 307, 401, 403 |
| [Pagerduty][pd] | 200, 201, 204, 400, 401, 403, 404, 408, 500 |
| [NewRelic Plugins][nr] | 200, 400, 403, 404, 405, 413, 500, 502, 503, 503 |
| [Etsy][etsy] | 200, 201, 400, 403, 404, 500, 503 |
| [Dropbox][db] | 200, 400, 401, 403, 404, 405, 429, 503, 507 |
| #!/usr/bin/env stack | |
| -- stack --install-ghc runghc --package turtle --package wreq | |
| {-# LANGUAGE OverloadedStrings #-} | |
| import qualified Control.Foldl as Fold | |
| import Control.Lens ((^.)) | |
| import Control.Monad (when) | |
| import Data.ByteString.Lazy (hPut) | |
| import Data.Maybe (fromMaybe) |
| ;; 1. place this in ~/.emacs.d/private/intero/packages.el | |
| ;; 2. add intero, syntax-checking and auto-completion to your | |
| ;; ~/.spacemacs layer configuration & remove the haskell layer | |
| ;; if you were using that before | |
| ;; 3. make sure you have stack installed http://haskellstack.org | |
| ;; 4. fire up emacs & open up a stack project's source files |
TypeScript supports Pick to allow you to get a "subset" object type of a given type, but there is no built-in Pick for deeper nested fields.
If you have a function that takes a large object as argument, but you don't use all of its fields, you can use Pick, Pick2, Pick3, etc to narrow down the input type to be only just what you need. This will make it easier to test your function, because when mocking the input object, you don't need to pass all fields of the "large" object.
