cuboid 0.14 → 0.14.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

GameLogic.hs +2/−2
cuboid.cabal +1/−1

GameLogic.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE Arrows #-}+{-# LANGUAGE Arrows, BangPatterns #-} module GameLogic where  import FRP.Yampa@@ -15,7 +15,7 @@  -- Snapping integral  integral' = (iPre zeroVector &&& time) >>> sscan f (zeroVector, 0) >>> arr fst-    where f (prevVal, prevTime) (val, time) +    where f (!prevVal, !prevTime) (!val, !time)              | val == zeroVector = (vectorApply (fromIntegral . round) prevVal, time)             | otherwise        = (prevVal ^+^ (realToFrac $ time - prevTime) *^ val, time)

cuboid.cabal view

@@ -16,7 +16,7 @@     into a configuration file in the future.  Synopsis:           3D Yampa/GLUT Puzzle Game -Version:            0.14+Version:            0.14.1 License:            MIT License-file:       LICENSE Copyright:          (C) 2010 Pedro Martins