From 1cf6bc1ad9209e4f3f2fcbc129f2577e74e94c99 Mon Sep 17 00:00:00 2001 From: Joris Date: Wed, 30 Dec 2015 01:03:47 +0100 Subject: Upgrade to elm 0.16.0 --- src/Model/Level.elm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src/Model/Level.elm') 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 } -- cgit v1.2.3