rommsen

namespace ddd_patterns.Step6
{
    public interface IPaymentService
    {
        public bool Pay(decimal amount, decimal vat);
    }
    
}

rommsen

using System;
using System.Data.SqlClient;

namespace ddd_patterns.Step2
{
    public class OnlineTickets
    {
        private readonly string _connectionString;

        public OnlineTickets(string connectionString)

rommsen

#r "netstandard"
#load @"..\.paket\load\netstandard2.0\main.group.fsx"
      @"Step3\Infrastructure3.fs"
      @"Step3\Domain3.fs"
      @"Step3\Program3.fs"
      @"Step3\Tests3.fs"

open Step3.Domain
open Step3.Domain.Projections
open Step3.Program

rommsen

module TreeBuilding

type Record = { RecordId: int; ParentId: int }
type Tree = 
    | Branch of int * Tree list
    | Leaf of int

let recordId t = 
    match t with
    | Branch (id, c) -> id

rommsen

// Syntax (keine Klammern, Funktionsaufrufe)
// value binding
let firstname : string = "Roman"
open System.Reflection
open System.Windows.Forms
open System.Security.Cryptography

let age : int = 37

// type inference

rommsen

open System
open System.ComponentModel
open System

// 1. Schreibe ein Programm, dass einen Character einliest und ihn wieder ausgibt

// [<EntryPoint>]
// let main argv =
//   Console.WriteLine "Hallo was willste?"

rommsen

type Event =
  | One
  | Two
  | Three


type Command =
  | One

rommsen

<Project Sdk="Microsoft.NET.Sdk">
  <PropertyGroup>
    <OutputType>Exe</OutputType>
    <TargetFramework>netcoreapp2.0</TargetFramework>
    <DebugType>portable</DebugType>
  </PropertyGroup>
  <ItemGroup>
    <Compile Include="../Domain/Model.fs" />
    <Compile Include="../Domain/Commands.fs" />
    <Compile Include="AuthTypes.fs" />

rommsen

module Http

open HttpFs.Client
open Hopac
open FSharp.Control.Reactive

type HttpResponse =
| Ok of string
| Error of int

rommsen

module Main exposing (..)

import Html exposing (..)
import Html.Events exposing (on, targetValue)
import Html.Attributes exposing (..)
import Json.Decode as Json
import Date


type alias Model =