aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-23 12:52:31 +03:00
Code Issues Projects Releases Wiki Activity

Remove warnings in Guide.Views.Auth.*

Browse Source
This commit is contained in:
Artyom 2017-02-05 13:59:27 +03:00
parent e0318d5b78
commit 5947c71750
No known key found for this signature in database
GPG Key ID: B8E35A33FF522710
2 changed files with 3 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Guide/Views/Auth/Login.hs
View File

@ -1,4 +1,3 @@
-- {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
@ -11,17 +10,10 @@ import Imports
import Lucid hiding (for_)
import Guide.Views.Page
import Guide.Config
import Guide.State
-- import Guide.Types
import Guide.Utils
import Guide.JS (JS(..), JQuerySelector)
import qualified Guide.JS as JS
import Guide.Markdown
import Guide.Cache
loginContent :: (MonadIO m, MonadReader Config m) => HtmlT m ()
loginContent :: (MonadIO m) => HtmlT m ()
loginContent = do
div_ ""

11
src/Guide/Views/Auth/Register.hs
View File

@ -1,4 +1,3 @@
-- {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
@ -10,18 +9,10 @@ import Imports
import Lucid hiding (for_)
import Guide.Views.Page
import Guide.Config
import Guide.State
-- import Guide.Types
import Guide.Utils
import Guide.JS (JS(..), JQuerySelector)
import qualified Guide.JS as JS
import Guide.Markdown
import Guide.Cache
registerContent :: (MonadIO m, MonadReader Config m) => HtmlT m ()
registerContent :: (MonadIO m) => HtmlT m ()
registerContent =
div_ ""