cors.hs

gistfile1.txt

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Network.HTTP.Simple 
import Web.Scotty
import Data.Monoid (mconcat)
import Network.Wai.Middleware.Cors

main = scotty 3000 $ do
  middleware simpleCors
  get "/" $ html "hi"
  get "/thing/" $ file "./thing.html"

-- curl -i http://127.0.0.1:3000 -H 'Origin: 127.0.0.1' -v
-- Will show " Access-Control-Allow-Origin: * "