emmanueltouzery

create-react-native-app purescript-app; cd purescript-app
pulp init --force
pulp build
src/Main.js

var React = require("react");
var RN = require("react-native");

exports.text = function(props){

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.

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

fmap . fmap . fmap

Functors and Traversables compose.

You might have seen this statement before. This is how you can take advantage of it.

Composing many fmap calls gives you a function that will drill down into a structure and modify it at a certain depth in that nested structure.

	Add the following in .zshrc:

	...
	plugins=(osx git zsh-autosuggestions zsh-syntax-highlighting zsh-nvm docker kubectl)
	...

	### Fix slowness of pastes with zsh-syntax-highlighting.zsh
	pasteinit() {
	OLD_SELF_INSERT=${${(s.:.)widgets[self-insert]}[2,3]}
	zle -N self-insert url-quote-magic # I wonder if you'd need `.url-quote-magic`?

	// not the most elgant way but it works

	// in the console post the function below and call changeSwagger("http","localhost:5050","/my_path/)

	function changeSwagger (scheme,host,path) {
	var newspec = ui.spec().toJSON().resolved
	newspec.scheme = [scheme] \|\| newspec.scheme
	newspec.host = host \|\| newspec.host
	newspec.basePath = path \|\| newspec.basePath
	ui.getStore().dispatch({type:'set_scheme',payload: {scheme: newspec.scheme[0]}})

	;; 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

	#!/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)

	<!DOCTYPE html>
	<html>
	<head>

	<!-- Add leaflet css -->
	<link
	rel="stylesheet" href="https://unpkg.com/[email protected]/dist/leaflet.css"
	integrity="sha512-xwE/Az9zrjBIphAcBb3F6JVqxf46+CDLwfLMHloNu6KEQCAWi6HcDUbeOfBIptF7tcCzusKFjFw2yuvEpDL9wQ=="
	crossorigin=""
	/>

	{-# 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