aboutsummaryrefslogtreecommitdiff
path: root/src/Sproxy/Application
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2017-05-13 23:09:56 +0300
committerIgor Pashev <pashev.igor@gmail.com>2017-05-13 23:16:09 +0300
commit850e5cc2d4ef96a2dd2a43c9b8d4c1355eb7a148 (patch)
tree1ae2c8e9db2623235509a636e3e9a57ded083fae /src/Sproxy/Application
parent4e115cca1db6ded1c11d970bdb2372da0ff6eb95 (diff)
downloadsproxy2-850e5cc2d4ef96a2dd2a43c9b8d4c1355eb7a148.tar.gz
Add end-point for checking access in a bunch
Diffstat (limited to 'src/Sproxy/Application')
-rw-r--r--src/Sproxy/Application/Access.hs23
1 files changed, 23 insertions, 0 deletions
diff --git a/src/Sproxy/Application/Access.hs b/src/Sproxy/Application/Access.hs
new file mode 100644
index 0000000..d8984ee
--- /dev/null
+++ b/src/Sproxy/Application/Access.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+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)
+
+instance FromJSON Question
+
+type Inquiry = HashMap Text Question
+