From 820ea577989fd40473db25f6166092336c483338 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 31 Oct 2017 20:06:17 +0300 Subject: Use Template Haskell --- src/Sproxy/Application/Access.hs | 9 ++++----- 1 file 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 -- cgit v1.2.3