Skip to content

Instantly share code, notes, and snippets.

@blair55

blair55/Writer.fs

Created November 29, 2022 13:18
Show Gist options
  • Save blair55/9f167aba17d98bfed9362573c430245b to your computer and use it in GitHub Desktop.
Save blair55/9f167aba17d98bfed9362573c430245b to your computer and use it in GitHub Desktop.
Download ZIP
Writer type and utility functions
Raw
Writer.fs
type Writer<'Log, 'T> = Writer of (Unit -> 'T * 'Log list)
let retn (x: 'T) = Writer(fun () -> x, [])
let write (log: 'Log) = Writer(fun () -> (), [ log ])
let run (Writer writer) : 'T * 'Log list = writer ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment