etaque

import cats._
import cats.implicits._
import org.http4s._
import org.http4s.client._

object clientImplicits {
  implicit class ClientSyntax[F[_], E](val client: Client[F]) extends AnyVal {
    def expectOption[A](
      req: F[Request[F]])(implicit dec: EntityDecoder[F, A], E: ApplicativeError[F, E]): F[Option[A]] = {
      client.expect[A](req).map[Option[A]](Some(_)).recover {

etaque

trait Persisted {
  def id: UUID
}

trait BasicDoobieTable[M <: Persisted] {
  def table: String
  def columns: Seq[String]

  implicit def composite: Composite[M]

etaque

module Main exposing (..)

import Form exposing (..)
import Form.Input as Input
import Form.Validate exposing (..)
import Html exposing (..)


type Color
    = Red

etaque

package dao

import scalaz.concurrent.Task
import scalaz.stream.Process
import doobie.imports._
import scalaz._
import Scalaz._

import models.Persisted

etaque

const sendWindowMouseDrags = port => {
  let mouseDown = false;
  let mousePosition = { x: null, y: null };

  const getPoint = e => ({ x: e.pageX, y: e.pageY });

  document.addEventListener('mousedown', e => {
    mousePosition = getPoint(e);
    mouseDown = true;
    port.send([mousePosition, null]);

etaque

onMouseWheel : Address a -> (Float -> a) -> Attribute
onMouseWheel address toAction =
  let
    handler v = Signal.message address (toAction v)
  in
    onWithOptions "wheel" defensiveOptions decodeWheelEvent handler

defensiveOptions : Options
defensiveOptions =
    { stopPropagation = True

etaque

const sendMouseDrags = port => {
  let mouseDown = false;
  let mousePosition = { x: null, y: null };

  const getPoint = e => ({ x: e.pageX, y: e.pageY });

  document.addEventListener('mousedown', e => {
    mousePosition = getPoint(e);
    mouseDown = true;

etaque

-- which style do you prefer?

-- commas/brackets first
rowView : Chart -> Html
rowView chart =
  tr []
  [ th []
    [ text chart.label ]
  , td
    [ class "toggle"

etaque

# yaourt displaylink
# sudo systemctl enable displaylink.service
# sudo systemctl start displaylink.service
# xrandr --listproviders
# xrandr --setprovideroutputsource 1 0
# sudo modprobe udl
# sudo vim /etc/modules-load.d/udl.conf
udl

etaque

module Foo where

type Bar = { baz : Maybe Float }