diff --git a/GameLogic.hs b/GameLogic.hs
--- a/GameLogic.hs
+++ b/GameLogic.hs
@@ -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)
 
diff --git a/cuboid.cabal b/cuboid.cabal
--- a/cuboid.cabal
+++ b/cuboid.cabal
@@ -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