Remove unused Profile controller, from the scaffolding

2017-10-03 13:37:24 +11:00 · 2017-10-03 13:37:24 +11:00 · a2a0ec5127
commit a2a0ec5127
parent 0a230e7644
5 changed files with 2 additions and 72 deletions
--- a/src/Handler/Profile.hs
+++ b/src/Handler/Profile.hs
@ -1,15 +0,0 @@
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE TypeFamilies #-}
-module Handler.Profile where
-
-import Import
-
-getProfileR :: Handler Html
-getProfileR = do
-    (_, user) <- requireAuthPair
-    defaultLayout $ do
-        setTitle . toHtml $ userIdent user <> "'s User page"
-        $(widgetFile "profile")