jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-12 12:23:21 +03:00
Code Issues Projects Releases Wiki Activity

Docstring typo

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-07-07 19:43:06 -07:00
parent 19f5650a1b
commit adf0146142
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Brick/Types.hs
View File

@ -80,10 +80,10 @@ class HandleEvent a where
handleEvent :: Event -> a -> a handleEvent :: Event -> a -> a
-- | A template haskell function to build lenses for a record type. This -- | A template haskell function to build lenses for a record type. This
-- function differs from the 'Lens.makeLenses' function in that it does -- function differs from the 'Control.Lens.makeLenses' function in that
-- not require the record fields to be prefixed with underscores and -- it does not require the record fields to be prefixed with underscores
-- it adds an "L" suffix to lens names to make it clear that they are -- and it adds an "L" suffix to lens names to make it clear that they
-- lenses. -- are lenses.
suffixLenses :: TH.Name -> TH.DecsQ suffixLenses :: TH.Name -> TH.DecsQ
suffixLenses = makeLensesWith $ suffixLenses = makeLensesWith $
lensRules & lensField .~ (\_ _ name -> [TopName $ TH.mkName $ TH.nameBase name ++ "L"]) lensRules & lensField .~ (\_ _ name -> [TopName $ TH.mkName $ TH.nameBase name ++ "L"])