src/server/Design/LoggedIn.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn
  ( loggedInDesign
  ) where

import Clay

import Design.Color as C
import Design.Helper
import Design.Constants

import Design.LoggedIn.Add
import Design.LoggedIn.Expandables
import Design.LoggedIn.Table
import Design.LoggedIn.Pages

loggedInDesign :: Css
loggedInDesign =

  ".loggedIn" ? do

    addDesign

    expandablesDesign

    tableDesign

    pagesDesign