Skip to content

Instantly share code, notes, and snippets.

@TWith2Sugars

TWith2Sugars/gist:e3633cfec7ed22186881

Created June 2, 2015 11:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save TWith2Sugars/e3633cfec7ed22186881 to your computer and use it in GitHub Desktop.
Save TWith2Sugars/e3633cfec7ed22186881 to your computer and use it in GitHub Desktop.
Download ZIP
Freya - Server Address
Raw
gistfile1.fs
freya {
let! scheme = Freya.getLens Request.scheme
let! host = Freya.getLensPartial Request.Headers.host
let host = host.Value
let! pathBase = Freya.getLens Request.pathBase
let uri = sprintf "%s://%O%s" scheme host pathBase
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment