Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (7 sloc) 216 Bytes
> {-# LANGUAGE TemplateHaskell #-}
> {-# LANGUAGE QuasiQuotes #-}
> import Control.Comonad
> import Language.Haskell.Codo
>
> foo :: (Comonad c, Num a) => c a -> a
> foo = [codo| x => extract x + 1 |]