Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How do I make lenses from a record in GHCi

I want to play around with the Lens library a bit. I've loaded it into GHCi and created a record data type with the appropriate underscores:

> data Foo a = Foo {_arg1 :: Int, _arg2 :: [a]}

I would like to make the lenses for Foo using the makeLenses template. I would like to do this without needing to read through the entire set of Template-Haskell docs.

What incantation can I type in at the GHCi prompt to get this to work?

like image 416
John F. Miller Avatar asked Aug 23 '13 06:08

John F. Miller


1 Answers

Tested in GHCi 7.8.3:

:set -XTemplateHaskell
:m +Control.Lens
:{
data AST = AInt  { _aid :: Int, _ival :: Int }
         | AChar { _aid :: Int, _cval :: Char }
         deriving (Show)
makeLenses ''AST
:}

(I believe that the :{ ... :} block is necessary for makeLenses to work).

Let's briefly check:

λ >> AChar 100 'f' ^. aid
100
λ >> AChar 100 'f' ^? cval
Just 'f'
λ >> AInt 101 0 ^? cval
Nothing
like image 154
kgadek Avatar answered Nov 05 '22 11:11

kgadek