diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2017-08-06 19:50:58 +0300 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2017-08-06 19:50:58 +0300 |
commit | ad1134ad752bbcd678cfb5a80217fabe57fdcd35 (patch) | |
tree | 62b14e42a0d37b748279d1ff7fabfa75a62da2dc /src/Sproxy/Application/Access.hs | |
parent | 7870f9db440cc091a15fa4fae646522cce65fb4b (diff) | |
download | sproxy2-ad1134ad752bbcd678cfb5a80217fabe57fdcd35.tar.gz |
Format with hindent
Diffstat (limited to 'src/Sproxy/Application/Access.hs')
-rw-r--r-- | src/Sproxy/Application/Access.hs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/Sproxy/Application/Access.hs b/src/Sproxy/Application/Access.hs index d8984ee..6ba972c 100644 --- a/src/Sproxy/Application/Access.hs +++ b/src/Sproxy/Application/Access.hs @@ -1,23 +1,21 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} -module Sproxy.Application.Access ( - Inquiry -, Question(..) -) where +module Sproxy.Application.Access + ( Inquiry + , Question(..) + ) where import Data.Aeson (FromJSON) import Data.HashMap.Strict (HashMap) import Data.Text (Text) import GHC.Generics (Generic) - -data Question = Question { - path :: Text -, method :: Text -} deriving (Generic, Show) +data Question = Question + { path :: Text + , method :: Text + } deriving (Generic, Show) instance FromJSON Question type Inquiry = HashMap Text Question - |