Cleanup

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]