From 3a57a4996db19b921261e45b04a01a5d34f7cf31 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 7 Sep 2016 17:22:58 +0200 Subject: [PATCH 1/6] starting threat analysis --- Handler/Signup.hs | 5 +++++ config/routes | 1 + templates/threat.hamlet | 39 +++++++++++++++++++++++++++++++++++++++ 3 files changed, 45 insertions(+) create mode 100644 templates/threat.hamlet diff --git a/Handler/Signup.hs b/Handler/Signup.hs index cbdafdf..7786cf0 100755 --- a/Handler/Signup.hs +++ b/Handler/Signup.hs @@ -84,3 +84,8 @@ postSignupR = do validateLen :: Text -> Bool validateLen a = (T.length a) > 2 + +getThreatR :: Handler Html +getThreatR = + defaultLayout $ + $(widgetFile "threat") diff --git a/config/routes b/config/routes index c508f8d..eeb2dcd 100755 --- a/config/routes +++ b/config/routes @@ -22,6 +22,7 @@ / HomeR GET /page/#Int PageR GET /signup SignupR GET POST +/threat ThreatR GET /login LoginR GET POST /logout LogoutR GET /activate/#T.Text ActivateR GET POST diff --git a/templates/threat.hamlet b/templates/threat.hamlet new file mode 100644 index 0000000..f5c46b1 --- /dev/null +++ b/templates/threat.hamlet @@ -0,0 +1,39 @@ +$newline always +
+

+ Data and threat analysis +

+ Eidolon stores the following data: +