Skip to content
Browse files

Removed some useless TH dollar-signs from test code and docs.

  • Loading branch information...
1 parent 23feb0c commit f0bd8297d54ea119a8853ac0d45fd3ee5722d92c @sebastiaanvisser committed Jul 25, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 bench/Benchmark.hs
  2. +1 −1 src/Data/Label.hs
  3. +1 −1 test/Deriving.hs
View
2 bench/Benchmark.hs
@@ -19,7 +19,7 @@ data Place = Place
, _continent :: String
} deriving (Show, Eq)
-$(mkLabels [''Person, ''Place])
+mkLabels [''Person, ''Place]
jan :: Person
jan = Person "Jan" 71 True (Place "Utrecht" "The Netherlands" "Europe") Nothing
View
2 src/Data/Label.hs
@@ -46,7 +46,7 @@ underscore. This underscore is an indication for our Template Haskell code to
derive lenses for these fields. Deriving lenses can be done with this simple
one-liner:
->$(mkLabels [''Person, ''Place])
+>mkLabels [''Person, ''Place]
For all labels a lens will created.
View
2 test/Deriving.hs
@@ -31,7 +31,7 @@ data Member a =
}
deriving Show
-$(mkLabels [''Family, ''Member])
+mkLabels [''Family, ''Member]
myself :: Member Int
myself = Person "Me" 28 (Family (Just myDad) (Just myMum))

0 comments on commit f0bd829

Please sign in to comment.
Something went wrong with that request. Please try again.