Add income list CRUD in user page

1 files changed, 4 insertions, 38 deletions

diff --git a/src/server/Design/LoggedIn/Expandables.hs b/src/server/Design/LoggedIn/Expandables.hs
index 8ef42cd..a3be877 100644
--- a/src/server/Design/LoggedIn/Expandables.hs
+++ b/src/server/Design/LoggedIn/Expandables.hs
@@ -4,8 +4,8 @@ module Design.LoggedIn.Expandables
   ( expandablesDesign
   ) where
 
-import Data.Monoid ((<>))
-
+-- import Data.Monoid ((<>))
+--
 import Clay
 
 import Design.Color as C
@@ -22,42 +22,8 @@ expandablesDesign =
       right blockPadding
       bottom (px 2)
 
-    ".monthlyPayments" ? do
-      expandBlock C.blue C.white (px inputHeight)
-
-    ".account" ? do
-      expandBlock C.green C.white (px inputHeight)
-
-      ".header" |> ".exceedingPayer" ? do
-        lineHeight (px inputHeight)
-        ".userName" ? marginRight (px 10)
-
-      ".income" ? do
-        backgroundColor C.lightGrey
-        padding (px 0) (px 20) (px 0) (px 20)
-        position relative
-        lineHeight (px rowHeightPx)
-
-        input ? do
-          defaultInput inputHeight
-          marginLeft (px 20)
-          marginTop (px (-5))
-          width (px 100)
-
-        button ? do
-          marginLeft (px 20)
-          paddingLeft (px 15)
-          paddingRight (px 15)
-          marginTop (px (-5))
-
-        ".validateIncomeEdition" <> ".editIncomeEdition" ?
-          defaultButton C.red C.white (px inputHeight) focusLighten
-
-        ".undoIncomeEdition" ?
-          defaultButton C.blue C.white (px inputHeight) focusLighten
+    ".monthlyPayments" ? expandBlock C.blue C.white (px inputHeight)
 
-        ".error" ? do
-          color C.redError
-          lineHeight (px 30)
+    ".account" ? expandBlock C.green C.white (px inputHeight)
 
     ".detail" |> ".header" ? borderRadius radius radius 0 0