aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Sproxy/Application/Access.hs9
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