SuddenlyHazel

import Blob "mo:base/Blob";
import Debug "mo:base/Debug";
import Text "mo:base/Text";

actor {
    type HeaderField = (Text, Text);

    type HttpRequest = {
        method: Text;
        url: Text;

martinrue

const http = require("http");
const esbuild = require("esbuild");

const serve = async (servedir, listen) => {
  // Start esbuild's local web server. Random port will be chosen by esbuild.
  const { host, port } = await esbuild.serve({ servedir }, {});

  // Create a second (proxy) server that will forward requests to esbuild.
  const proxy = http.createServer((req, res) => {
    // forwardRequest forwards an http request through to esbuid.

mtgto

/*
 * Change from https://gist.github.com/unki2aut/4ac81c33be2e8f121e80a26eba1735d7
 * - Use top level await (Node.js v14.8.0+)
 *   - To use top level await, you need to write a script as ES Modules
 * - Set chokidar options to avoid duplicate building
 * - Define NODE_ENV (For React)
 * - Add API proxy setting by using proxy-middleware
 */
import chokidar from "chokidar";
import esbuild from "esbuild";

puffnfresh

public class FP
{
  public static <A> A identity (A a)
  {
    return a;
  }
  public static <A, B> A constant (A a, B b)
  {
    return a;
  }

inamiy

import SwiftUI

struct ContentView: View {
    @UseCounter
    var counter: Int = 0

    @UseCounterEffect(initialCount: 1, onUpdate: { count in
        print("===> update: \(count)")
    })
    var counterEffect: Void

hdgarrood

module Main where

import Prelude

import Effect (Effect)
import Data.Foldable (fold)
import TryPureScript (h1, h2, p, text, list, indent, link, render, code)
import Prim.Row (class Union, class Nub)
import Type.Row (type (+))
import Record as Record

chriseidhof

// Run any SwiftUI view as a Mac app.

import Cocoa
import SwiftUI

NSApplication.shared.run {
    VStack {
        Text("Hello, World")
        	.padding()
            .background(Capsule().fill(Color.blue))

paf31

{-# language FlexibleContexts #-}
{-# language TypeOperators #-}

module DKT where
  
import Control.Monad (guard)
import Control.Monad.Error.Class (throwError)
import Control.Monad.Trans (lift)
import Control.Monad.Trans.State
import Control.Monad.Trans.Writer

gelisam

-- in response to https://twitter.com/chrislpenner/status/1221784005156036608
--
-- The goal is to mimic this Scala code, but in Haskell:
--
-- > "spotify:user:123:playlist:456" match {
-- >   case s"spotify:user:$userId:playlist:$playlistId"
-- >     => ($userId, $playlistId)  // ("123", "456")
-- > }
{-# LANGUAGE DeriveFunctor, LambdaCase, PatternSynonyms, QuasiQuotes, RankNTypes, TemplateHaskell, TypeOperators, ViewPatterns #-}
{-# OPTIONS -Wno-name-shadowing #-}

ChrisPenner

Optics By Example Cheat Sheets

The following are appendices from Optics By Example, a comprehensive guide to optics from beginner to advanced! If you like the content below, there's plenty more where that came from; pick up the book!

• Operators
• Composition Guide
• Substitution Guide
• Optical Constarints and Types

Operator Cheat Sheet