﻿module ForneverMind.Common

open System.IO
open System.Reflection
open System.Text

open Arachne.Http
open Freya.Core
open Freya.Machine
open Freya.Machine.Extensions.Http

let private utf8 = Freya.init [ Charset.Utf8 ]
let private json = Freya.init [ MediaType.Html ]

let get = Freya.init [ GET ]

let machine =
    freyaMachine {
        using http
        charsetsSupported utf8
        mediaTypesSupported json
    }

let applicationPath = Assembly.GetExecutingAssembly().CodeBase
let viewsDirectory = Path.Combine (applicationPath, "Views")

﻿module ForneverMind.Common

open System
open System.IO
open System.Text

open Arachne.Http
open Freya.Core
open Freya.Machine
open Freya.Machine.Extensions.Http

let private utf8 = Freya.init [ Charset.Utf8 ]
let private json = Freya.init [ MediaType.Html ]

let get = Freya.init [ GET ]

let machine =
    freyaMachine {
        using http
        charsetsSupported utf8
        mediaTypesSupported json
    }

let applicationPath = AppDomain.CurrentDomain.BaseDirectory
let viewsDirectory = Path.Combine (applicationPath, "Views")

Fix application base path getter.
Fix application base path getter.
