Skip to content
Permalink

Comparing changes

This is a direct comparison between two commits made in this repository or its related repositories. View the default comparison for this range or learn more about diff comparisons.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also . Learn more about diff comparisons here.
base repository: fsprojects/FSharpPlus
Failed to load repositories. Confirm that selected base ref is valid, then try again.
Loading
base: fabdb5b3ad8f880c41aa9d2465262fce47508842
Choose a base ref
..
head repository: fsprojects/FSharpPlus
Failed to load repositories. Confirm that selected head ref is valid, then try again.
Loading
compare: 983bd8c657c41c558a4de795367823e018bd0c07
Choose a head ref
Showing with 2 additions and 2 deletions.
  1. +2 −2 tests/FSharpPlus.Tests/Free.fs
4 changes: 2 additions & 2 deletions tests/FSharpPlus.Tests/Free.fs
View file
Original file line number Diff line number Diff line change
@@ -38,7 +38,7 @@ module Sample1 =
| Get (k, c) -> Get (k, c >> f)
| Set (k, v, c) -> Set (k, v, f c )

type FreeDSL<'a> = Free<DSL<'a>,'a>
type FreeDSL<'a> = Free<DSL<__>,'a>

let ex1 = Set ("alma", "bela", (Get ("alma", id)))
let exF1 = Roll (Set ("alma", "bela", (Roll (Get ("alma", (fun s -> Pure s))))))
@@ -291,7 +291,7 @@ module Fold =
match instruction with
| Read (id, next) -> Read(id, next >> f)

type Program<'a> = Free<Instruction<'a>, 'a>
type Program<'a> = Free<Instruction<__>, 'a>

let read fooId = Read(fooId, id) |> Free.liftF