Skip to content

Instantly share code, notes, and snippets.

@jandrewthompson
jandrewthompson / scottydb.hs
Created January 25, 2017 19:27
This works, but am I doing it right?
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
module Main where
--import Web.Scotty
import Web.Scotty.Trans
import Data.Aeson (FromJSON, ToJSON)
import Data.Text.Lazy (Text)
import Data.Monoid ((<>))
# OfflineImap config.
# copy to ~/.offlineimaprc
[general]
accounts = ISU
[Account ISU]
localrepository = Local
remoterepository = Remote