diff --git a/Data/Array/Accelerate/Trafo/Sharing.hs b/Data/Array/Accelerate/Trafo/Sharing.hs
--- a/Data/Array/Accelerate/Trafo/Sharing.hs
+++ b/Data/Array/Accelerate/Trafo/Sharing.hs
@@ -344,7 +344,7 @@
 -- In higher-order abstract syntax, this represents an n-ary, polyvariadic
 -- function.
 --
-convertFun :: Function f => Bool => f -> AST.Fun () (FunctionR f)
+convertFun :: Function f => Bool -> f -> AST.Fun () (FunctionR f)
 convertFun shareExp =
   let config = Config False shareExp False
   in  convert config EmptyLayout
diff --git a/accelerate.cabal b/accelerate.cabal
--- a/accelerate.cabal
+++ b/accelerate.cabal
@@ -1,5 +1,5 @@
 Name:                   accelerate
-Version:                0.13.0.2
+Version:                0.13.0.3
 Cabal-version:          >= 1.6
 Tested-with:            GHC >= 7.4.2
 Build-type:             Custom