kryptt

{-# LANGUAGE OverloadedStrings #-}
module Example where

import           Language.Marlowe

main :: IO ()
main = print . pretty $ contract


{- Define a contract, Close is the simplest contract which just ends the contract straight away

kryptt

{-# LANGUAGE OverloadedStrings #-}
module Example where

import           Language.Marlowe

main :: IO ()
main = print . pretty $ contract


{- Define a contract, Close is the simplest contract which just ends the contract straight away

kryptt

import cats.effect.{IO, Timer}
import fs2.{Pull, Stream}
import org.http4s._
import org.http4s.ServerSentEvent.EventId
import org.http4s.client.Client
import org.http4s.headers.{`Cache-Control`, Accept}
import scala.concurrent.duration._
import SseClient._

final class SseClient private (

kryptt

#include <tl/expected.hpp>
#include <iostream>
#include <stdexcept>
#include <functional>
#include <variant>

// Logic in modern civilization
template<typename A, typename B>
using And = std::tuple<A, B>;

kryptt

package kobo
package assist

import scalacache.{Cache, Mode}

import fs2.{INothing, Pipe, Stream}
import fs2.concurrent._

import cats.syntax.all._
import cats.data.{EitherT, OptionT}

kryptt

package eo

import cats.{Applicative, Bifunctor, Functor, Traverse}
import cats.arrow._
import cats.implicits._

trait Accessor[F[_, _]] {
  def get[A]: [X] => F[X, A] => A
}