Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit f0bd8297d54ea119a8853ac0d45fd3ee5722d92c 1 parent 23feb0c
Sebastiaan Visser authored
2  bench/Benchmark.hs
@@ -19,7 +19,7 @@ data Place = Place
19 19 , _continent :: String
20 20 } deriving (Show, Eq)
21 21
22   -$(mkLabels [''Person, ''Place])
  22 +mkLabels [''Person, ''Place]
23 23
24 24 jan :: Person
25 25 jan = Person "Jan" 71 True (Place "Utrecht" "The Netherlands" "Europe") Nothing
2  src/Data/Label.hs
@@ -46,7 +46,7 @@ underscore. This underscore is an indication for our Template Haskell code to
46 46 derive lenses for these fields. Deriving lenses can be done with this simple
47 47 one-liner:
48 48
49   ->$(mkLabels [''Person, ''Place])
  49 +>mkLabels [''Person, ''Place]
50 50
51 51 For all labels a lens will created.
52 52
2  test/Deriving.hs
@@ -31,7 +31,7 @@ data Member a =
31 31 }
32 32 deriving Show
33 33
34   -$(mkLabels [''Family, ''Member])
  34 +mkLabels [''Family, ''Member]
35 35
36 36 myself :: Member Int
37 37 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.