Search code examples
haskellghcitemplate-haskellhaskell-lens

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?


Solution

  • 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