aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/client/elm/LoggedIn/Income/Model.elm2
-rw-r--r--src/client/elm/LoggedIn/Income/Msg.elm1
-rw-r--r--src/client/elm/LoggedIn/Income/Update.elm5
-rw-r--r--src/server/Design/Animation/Keyframes.hs26
-rw-r--r--src/server/Design/Global.hs4
5 files changed, 0 insertions, 38 deletions
diff --git a/src/client/elm/LoggedIn/Income/Model.elm b/src/client/elm/LoggedIn/Income/Model.elm
index d6e5e7a..cf1bf57 100644
--- a/src/client/elm/LoggedIn/Income/Model.elm
+++ b/src/client/elm/LoggedIn/Income/Model.elm
@@ -13,7 +13,6 @@ import Validation
type alias Model =
{ addIncome : Form String AddIncome
- , test : Bool
}
type alias AddIncome =
@@ -24,7 +23,6 @@ type alias AddIncome =
init : Model
init =
{ addIncome = initForm
- , test = False
}
initForm : Form String AddIncome
diff --git a/src/client/elm/LoggedIn/Income/Msg.elm b/src/client/elm/LoggedIn/Income/Msg.elm
index b3f3633..0a09dad 100644
--- a/src/client/elm/LoggedIn/Income/Msg.elm
+++ b/src/client/elm/LoggedIn/Income/Msg.elm
@@ -7,4 +7,3 @@ import Form exposing (Form)
type Msg =
NoOp
| AddIncomeMsg Form.Msg
- | ToggleTest
diff --git a/src/client/elm/LoggedIn/Income/Update.elm b/src/client/elm/LoggedIn/Income/Update.elm
index 8fa47fc..ec6a0c1 100644
--- a/src/client/elm/LoggedIn/Income/Update.elm
+++ b/src/client/elm/LoggedIn/Income/Update.elm
@@ -22,8 +22,3 @@ update loggedData msg model =
( { model | addIncome = Form.update formMsg model.addIncome }
, Cmd.none
)
-
- IncomeMsg.ToggleTest ->
- ( { model | test = not model.test }
- , Cmd.none
- )
diff --git a/src/server/Design/Animation/Keyframes.hs b/src/server/Design/Animation/Keyframes.hs
deleted file mode 100644
index 3ea5575..0000000
--- a/src/server/Design/Animation/Keyframes.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Design.Animation.Keyframes
- ( Keyframes(..)
- , allKeyframes
- ) where
-
-import Data.String (fromString)
-
-import Clay
-
-data Keyframes =
- OpacityKeyframes
- deriving (Eq, Show)
-
-allKeyframes :: Css
-allKeyframes =
- keyframes
- (fromString . show $ OpacityKeyframes)
- [ ( 0
- , opacity 0
- )
- , ( 100
- , opacity 1
- )
- ]
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 149769c..68d0196 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -14,8 +14,6 @@ import qualified Design.LoggedIn as LoggedIn
import qualified Design.Form as Form
import qualified Design.Dialog as Dialog
-import Design.Animation.Keyframes
-
import Design.Color as Color
import Design.Helper as Helper
import Design.Constants as Constants
@@ -32,8 +30,6 @@ global = do
".dialog" ? Dialog.design
Form.design
- allKeyframes
-
body ? do
minWidth (px 320)
fontFamily ["Cantarell"] [sansSerif]