Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 17 lines (14 sloc) 0.368 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
> {-# LANGUAGE OverloadedStrings #-}
> module Part2 where

> import Snap.Snaplet

> data Foo = Foo
>
> data Bar = Bar
>
> fooInit :: SnapletInit b Foo
> fooInit = makeSnaplet "foo" "Foo snaplet" Nothing $ do
> return Foo
>
> barInit :: SnapletLens b Foo -> SnapletInit b Bar
> barInit h = makeSnaplet "bar" "Bar snaplet" Nothing $ do
> return Bar
Something went wrong with that request. Please try again.