Permalink
Browse files

template haskell bug fix for older GHCs

  • Loading branch information...
1 parent a16e0b1 commit f8dbe6e20deb395709c5a1255f0c7eb811842d26 @ekmett committed Aug 11, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/Control/Lens/TH.hs
  2. +1 −1 wiki
View
@@ -282,7 +282,7 @@ makeFieldLensBody lensName fieldName cons maybeMethodName = case maybeMethodName
clause [varP f, conP conName $ map varP names] (normalB
(appsE [ varE (mkName "fmap")
, lamE [varP x] $ appsE $ conE conName : map varE (element i .~ x $ names)
- , varE (mkName "f") `appE` varE (names^.element i)
+ , varE f `appE` varE (names^.element i)
])) []
Nothing -> errorClause lensName fieldName conName
clauses con = errorClause lensName fieldName (con^.name)
2 wiki
Submodule wiki updated from f0c176 to f0e81c

0 comments on commit f8dbe6e

Please sign in to comment.