aboutsummaryrefslogtreecommitdiff
path: root/src/Sproxy/Application/Access.hs
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2017-08-06 19:50:58 +0300
committerIgor Pashev <pashev.igor@gmail.com>2017-08-06 19:50:58 +0300
commitad1134ad752bbcd678cfb5a80217fabe57fdcd35 (patch)
tree62b14e42a0d37b748279d1ff7fabfa75a62da2dc /src/Sproxy/Application/Access.hs
parent7870f9db440cc091a15fa4fae646522cce65fb4b (diff)
downloadsproxy2-ad1134ad752bbcd678cfb5a80217fabe57fdcd35.tar.gz
Format with hindent
Diffstat (limited to 'src/Sproxy/Application/Access.hs')
-rw-r--r--src/Sproxy/Application/Access.hs18
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
-