Skip to content

Instantly share code, notes, and snippets.

@dbushenko
Created April 20, 2015 11:34
Show Gist options
  • Save dbushenko/4d8b68d682acbfa635c2 to your computer and use it in GitHub Desktop.
Save dbushenko/4d8b68d682acbfa635c2 to your computer and use it in GitHub Desktop.
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Web.Scotty
import Data.Monoid (mconcat)
import Network.Wai.Middleware.Static
import Network.Wai.Middleware.RequestLogger (logStdoutDev)
import Control.Monad.IO.Class
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Vault.Lazy as Vault
import Data.Default (def)
import Network.Wai.Session (withSession, Session)
import Network.Wai.Session.Map (mapStore_)
main = do
store <- mapStore_
return ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment