Upgrade to elm 0.16.0

3 files changed, 13 insertions, 13 deletions

diff --git a/src/Model/Cloud.elm b/src/Model/Cloud.elm
index d279bae..603477b 100644
--- a/src/Model/Cloud.elm
+++ b/src/Model/Cloud.elm
@@ -22,7 +22,7 @@ type alias Cloud =
 initCloud : Cloud
 initCloud =
   let spawn = 600
-  in  { points config =
+  in  { points = \config ->
           case config of
             White -> []
             Black -> []
diff --git a/src/Model/Game.elm b/src/Model/Game.elm
index 8769651..24fd400 100644
--- a/src/Model/Game.elm
+++ b/src/Model/Game.elm
@@ -4,7 +4,7 @@ module Model.Game
   ) where
 
 import Random exposing (..)
-import Keyboard exposing (KeyCode)
+import Char exposing (KeyCode)
 import Time exposing (Time)
 import Set
 import Set exposing (Set)
diff --git a/src/Model/Level.elm b/src/Model/Level.elm
index a271653..3fc4258 100644
--- a/src/Model/Level.elm
+++ b/src/Model/Level.elm
@@ -52,39 +52,39 @@ progressiveRatio a b = (toFloat a ^ 7) / (toFloat b ^ 7)
 levels : List Level
 levels =
   [ { color = { red = 156, green = 168, blue = 233 }
-    , move initPos initDest delta = getMove (delta / 20) (initDest `sub` initPos)
+    , move = \initPos initDest delta -> getMove (delta / 20) (initDest `sub` initPos)
     }
   , { color = { red = 190, green = 156, blue = 233 }
-    , move initPos initDest delta = getWaveMove (delta / 20) (initDest `sub` initPos) 10 10
+    , move = \initPos initDest delta -> getWaveMove (delta / 20) (initDest `sub` initPos) 10 10
     }
   , { color = { red = 233, green = 156, blue = 232 }
-    , move initPos initDest delta = getMove (delta / 18) (initDest `sub` initPos)
+    , move = \initPos initDest delta -> getMove (delta / 18) (initDest `sub` initPos)
     }
   , { color = { red = 233, green = 156, blue = 187 }
-    , move initPos initDest delta = getWaveMove (delta / 18) (initDest `sub` initPos) 20 20
+    , move = \initPos initDest delta -> getWaveMove (delta / 18) (initDest `sub` initPos) 20 20
     }
   , { color = { red = 233, green = 171, blue = 156 }
-    , move initPos initDest delta = getMove (delta / 13) (initDest `sub` initPos)
+    , move = \initPos initDest delta -> getMove (delta / 13) (initDest `sub` initPos)
     }
   , { color = { red = 233, green = 215, blue = 156 }
-    , move initPos initDest delta = getWaveMove (delta / 16) (initDest `sub` initPos) 10 50
+    , move = \initPos initDest delta -> getWaveMove (delta / 16) (initDest `sub` initPos) 10 50
     }
   , { color = { red = 206, green = 233, blue = 156 }
-    , move initPos initDest delta = getMove (delta / 11) (initDest `sub` initPos)
+    , move = \initPos initDest delta -> getMove (delta / 11) (initDest `sub` initPos)
     }
   , { color = { red = 162, green = 233, blue = 156 }
-    , move initPos initDest delta = getWaveMove (delta / 14) (initDest `sub` initPos) 30 15
+    , move = \initPos initDest delta -> getWaveMove (delta / 14) (initDest `sub` initPos) 30 15
     }
   , { color = { red = 156, green = 233, blue = 196 }
-    , move initPos initDest delta = getMove (delta / 8) (initDest `sub` initPos)
+    , move = \initPos initDest delta -> getMove (delta / 8) (initDest `sub` initPos)
     }
   , { color = { red = 156, green = 225, blue = 233 }
-    , move initPos initDest delta = getWaveMove (delta / 12) (initDest `sub` initPos) 30 30
+    , move = \initPos initDest delta -> getWaveMove (delta / 12) (initDest `sub` initPos) 30 30
     }
   ]
 
 lastLevel : Level
 lastLevel =
   { color = { red = 156, green = 225, blue = 233 }
-  , move initPos initDest delta = getWaveMove (delta / 5) (initDest `sub` initPos) 30 30
+  , move = \initPos initDest delta -> getWaveMove (delta / 5) (initDest `sub` initPos) 30 30
   }