micron

micron is a micro web framework for Haskell.

How to use

The following code shows how you can define a simple REST API using micron:

main::IO()
main =do
hits <- newTVarIO (emptySession @Int)
Warp.run 3000$
app $
middleware globalMiddleware $do
middleware (useSqlite "data/database.db") $do
get @(R/"") $const (return"Hello, World!") |> ok
post @(R/"sign-up") $ body ~> signUp |> created
post @(R/"login") $ body ~> login |> ok
get @(R/"user") $ query ~> getUsers |> ok
get @(R/"user"/:"id"/"post") $ param @"id"~> getPostsByUser |> ok
get @(R/"post"/:"id") $ param @"id"~> getPost |> ok
middleware authenticated $do
post @(R/"post") $ body ~. user ~> addPost |> created
put @(R/"post"/:"id") $ param @"id"~. body ~. user ~> updatePost |> ok
delete @(R/"post"/:"id") $ param @"id"~. user ~> deletePost |> ok
middleware (session hits 0) $do
get @(R/"hit") $const (modify @Int (+1) >> gets @Intshow) |> ok
defaultRoutes

A full working example is available in the micron-example package.