yelluw

let cts = new CancellationTokenSource()
let conf = { defaultConfig with cancellationToken = cts.Token }
let listening, server = startWebServerAsync conf (OK "Hello World")
Async.Start(server, cts.Token)
printfn "Make requests now"
Console.ReadKey true |> ignore
cts.Cancel()

yelluw

(*
Suave.IO Tutorial #1

How to setup and run on Visual Studio 2015.
Was confirmed as working on Visual Studio 2017.

Dependencies:

<package id="FSharp.Core" version="4.0.0.1" targetFramework="net452" />
<package id="Suave" version="2.0.5" targetFramework="net452" />

yelluw

class Settings(Enum):
    def show(self):
        """
        returns the key, value of an enum member
        """
        return self.name, self.value


class CISettings(Settings):
    DEBUG = False

yelluw

@unique
class ProductionSettings(Enum):
    DEBUG = False
    DB = "production"
    DOMAIN = "foo.com"


    def show(self):
        """
        returns the key, value of an enum member

yelluw

"""
This will not work because it uses the @unique decorator.
"""

from enum import Enum, unique

@unique
class StagingSettings(Enum):
    DEBUG = False
    DB = "staging"

yelluw

for setting in DevelopmentSettings:
    print(repr(setting))

yelluw

for setting in DevelopmentSettings:
    print(setting)

yelluw

print(type(DevelopmentSettings.DEBUG)) # <enum 'DevelopmentSettings'>

print(isinstance(DevelopmentSettings.DEBUG, DevelopmentSettings)) # True

yelluw

print(repr(DevelopmentSettings.DEBUG)) # <DevelopmentSettings.DEBUG: True>

yelluw

DevelopmentSettings.DEBUG