diff --git a/Laplace/src/Main.hs b/Laplace/src/Main.hs
--- a/Laplace/src/Main.hs
+++ b/Laplace/src/Main.hs
@@ -85,6 +85,7 @@
 	-> Array DIM3 Word8
 	-> Array DIM2 Double
 	
+{-# INLINE slurpDoublesFromImage #-}
 slurpDoublesFromImage mkDouble arrBound
  = traverse arrBound
 	(\(Z :. height :. width :. _)	
@@ -102,13 +103,14 @@
 	-> Array DIM2 Double
 	-> Array DIM3 Word8
 	
+{-# INLINE makeImageFromDoubles #-}
 makeImageFromDoubles fnColor arrDoubles
  = traverse arrDoubles
 	(\(Z :. height :. width)
 		-> Z :. height :. width :. 4)
 		
 	(\get (Z :. y :. x :. c)
-		-> let (r, g, b) = rampColorHotToCold 0 1 (get (Z :. y :. x))
+		-> let (r, g, b) = fnColor (get (Z :. y :. x))
 		   in	case c of
 			  0	-> truncate (r * 255)
 			  1	-> truncate (g * 255)
@@ -118,6 +120,7 @@
 
 -- | Extract the boundary value from a RGB triple.
 slurpBoundValue :: Word8 -> Word8 -> Word8 -> Double
+{-# INLINE slurpBoundValue #-}
 slurpBoundValue r g b
 	-- A non-boundary value.
  	| r == 0 && g == 0 && b == 255	
@@ -133,6 +136,7 @@
 
 -- | Extract boundary mask from a RGB triple.
 slurpBoundMask :: Word8 -> Word8 -> Word8 -> Double
+{-# INLINE slurpBoundMask #-}
 slurpBoundMask r g b
 	-- A non-boundary value.
  	| r == 0 && g == 0 && b == 255	
diff --git a/repa-examples.cabal b/repa-examples.cabal
--- a/repa-examples.cabal
+++ b/repa-examples.cabal
@@ -1,5 +1,5 @@
 Name:                repa-examples
-Version:             1.1.0.0
+Version:             1.1.1.0
 License:             BSD3
 License-file:        LICENSE
 Author:              The DPH Team