Merge pull request #199 from ret/patch-1

Modernizing the TH example.
haskell · Jul 2, 2014 · 598b0bd · 598b0bd
2 parents 0dcdd72 + 26835cc
commit 598b0bd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/examples/TemplateHaskell.hs b/examples/TemplateHaskell.hs
@@ -7,7 +7,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 import Data.Aeson (decode, encode)
-import Data.Aeson.TH (deriveJSON)
+import Data.Aeson.TH (deriveJSON, defaultOptions)
 import qualified Data.ByteString.Lazy.Char8 as BL
 
 data Coord = Coord { x :: Double, y :: Double }
@@ -19,7 +19,7 @@ data Coord = Coord { x :: Double, y :: Double }
 -- names of the type's fields.  We don't want to transform them, so we
 -- use the identity function.
 
-$(deriveJSON id ''Coord)
+$(deriveJSON defaultOptions ''Coord)
 
 main :: IO ()
 main = do