| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="UTF-8"> | |
| <title>Say something</title> | |
| </head> | |
| <body> | |
| <form action="/" method="POST"> | |
| <fieldset for="to-say"> | |
| To say: |
Comments on https://github.com/fsharp/fslang-design/blob/master/RFCs/FS-1034-fsharp-core-package.md#today
So sign it?
| module LoggerExtensions | |
| open Hopac | |
| /// Extensions to the Expecto logger for Hopac. | |
| type Expecto.Logging.Logger with | |
| /// Log Verbose with backpressure as a job | |
| member x.verboseWithBPJ factory = | |
| x.verboseWithBP factory |> Job.fromAsync | |
| /// Log Debug with backpressure as a job |
| type DU = | |
| | ACaseName | |
| | BThereCake | |
| let magic (q: Quotation<_>): string = | |
| // smallest F# code in here? | |
| open Expecto | |
| let subject = magic <@ ACaseName @> | |
| Expect.equal subject "ACaseName" "Should extract the NAME of the DU case" |
| open Hopac | |
| open Hopac.Infixes | |
| /// A thread safe dictionary supports multiple-readers', multiple-writers' | |
| /// access to a normal .Net dictionary. | |
| type ThreadSafeDictionary<'K, 'V> = | |
| private { | |
| tryAddCh: Ch<'K * (unit -> 'V) * Ch<'V> * Promise<unit>> | |
| tryAddSelectCh: Ch<'K * (unit -> 'V) * ('V -> obj) * Ch<obj> * Promise<unit>> | |
| tryRemoveCh: Ch<'K * Ch<'V option> * Promise<unit>> |
| let startPublicWebApi s (logary : LogManager) esConn : Job<IAsyncDisposable> = | |
| let webApi = createPublicWebApi s esConn | |
| let cts = new CancellationTokenSource() | |
| let webConfig = | |
| { defaultConfig with | |
| cancellationToken = cts.Token | |
| bindings = [ HttpBinding.createSimple HTTP "0.0.0.0" s.listenPort ] | |
| } | |
| LogaryFacadeAdapter.initialise<Suave.Logging.Logger> logary |
| module PDFSharp.OSX | |
| open PdfSharp | |
| open PdfSharp.Fonts | |
| open PdfSharp.Pdf | |
| open PdfSharp.Drawing | |
| open System | |
| open System.Drawing | |
| open System.Drawing.Text | |
| open System.Globalization |
Consul: 0.7.2
You may have crashed your cluster so that all Consul servers have been offline at some point. You may be running on Kubernetes. The default 96 hours didn't pass, so there was no reaping of Consul servers. Restarting it all doesn't work. You've read this issue five times over and nothing works. On top of it all, which makes it harder, you're running a StatefulSet on Kubernetes, so you need to do kubectl delete pods/consul-1 to make the container arguments (kubectl replace consul/consul.yml) bite. On top of this, if you kubectl exec -it consul-1 and then kill -9 5, Kubernetes goes into a crash loop with exponential backoff, eating into your time.
Sounds like a Friday pleasure, right?
The tools you have at your disposal are:
-bootstrapkubectl replace consul/consul.yml
| # What's redux? | |
| - state + action -> reducer -> store -> connect (utils)(component) -> render | |
| - reducers are scoped to action types | |
| ## redux's connect function | |
| Responsible for mapping { state, dispatch } to props as first curried parameter. Second curried parameter is the component. | |
| => export default connect(mS, mD)(Comp); |
| dig js.stripe.com |