Skip to content

Instantly share code, notes, and snippets.

@hasufell

hasufell/MyOptics.hs

Created November 21, 2019 16:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hasufell/a0f56692e23a9cd178ffcfee9c25cd35 to your computer and use it in GitHub Desktop.
Save hasufell/a0f56692e23a9cd178ffcfee9c25cd35 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MyOptics.hs
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE LiberalTypeSynonyms #-}
module MyOptics where
import Optics
data Foo = Foo {
_foo :: forall x . (x -> x)
}
$(makeLenses 'Foo)
{--
foo :: Getter Foo (x -> x)
--}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment