Use Template Haskell

1 files changed, 4 insertions, 5 deletions

diff --git a/src/Sproxy/Application/Access.hs b/src/Sproxy/Application/Access.hs
index c40ef90..c2d0309 100644
--- a/src/Sproxy/Application/Access.hs
+++ b/src/Sproxy/Application/Access.hs
@@ -1,20 +1,19 @@
-{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TemplateHaskell #-}
 
 module Sproxy.Application.Access
   ( Inquiry
   , Question(..)
   ) where
 
-import Data.Aeson (FromJSON)
+import Data.Aeson.TH (defaultOptions, deriveFromJSON)
 import Data.HashMap.Strict (HashMap)
 import Data.Text (Text)
-import GHC.Generics (Generic)
 
 data Question = Question
   { path :: Text
   , method :: Text
-  } deriving (Generic, Show)
+  } deriving (Show)
 
-instance FromJSON Question
+$(deriveFromJSON defaultOptions ''Question)
 
 type Inquiry = HashMap Text Question