@@ -25,7 +25,7 @@ module Data.THGen.Enum
2525 ) where
2626
2727import Control.Applicative
28−import Control.Lens (over, _head)
28+import Control.Lens (over, _head, (<&>))
2929import Control.Monad
3030import qualified Data.Char as C
3131import qualified Language.Haskell.TH as TH
@@ -62,11 +62,11 @@ mangleEnumConName
6262 . words
6363
6464enumGenerate :: EnumDesc -> TH.DecsQ
65−enumGenerate (EnumDesc exh strName strVals') = do
65+enumGenerate (EnumDesc exh strName strVals) = do
6666 let
6767 name = TH.mkName strName
68− strVals = map mangleEnumConName strVals'
69− vals = map (\strVal -> TH.mkName (strName ++ strVal)) strVals
68+ vals = strVals <&> \strVal ->
69+ TH.mkName (strName ++ mangleEnumConName strVal)
7070 unknownVal = TH.mkName ("Unknown" ++ strName)
7171 dataDecl <- do
7272 let