diff --git a/Numeric/LinearAlgebra/SVD/SVDLIBC.hs b/Numeric/LinearAlgebra/SVD/SVDLIBC.hs
--- a/Numeric/LinearAlgebra/SVD/SVDLIBC.hs
+++ b/Numeric/LinearAlgebra/SVD/SVDLIBC.hs
@@ -38,6 +38,8 @@
 foreign import ccall unsafe "get_dmat_cols" getCols :: Ptr DenseMatrix -> IO CLong
 foreign import ccall unsafe "get_dmat_buffer" getBuffer :: Ptr DenseMatrix -> IO (Ptr Double)
 
+foreign import ccall unsafe "set_verbosity" setVerbosity :: CLong -> IO ()
+
 -- Our approach to memory management for dmats isn't entirely future-proof as we currently
 -- free the library's data structures directly, keeping the underlying
 -- buffers around for our own purposes
@@ -96,4 +98,4 @@
 -- This function handles the conversion to svdlibc's sparse representation.
 svd :: Int -> P.Matrix Double -> (P.Matrix Double, P.Vector Double, P.Matrix Double)
 svd rank m = unsafePerformIO $ do
-    matrixToDMatrix m >>= dMatrixToSMatrix >>= runSvd rank >>= unpackSvdRec
+    setVerbosity 0 >> matrixToDMatrix m >>= dMatrixToSMatrix >>= runSvd rank >>= unpackSvdRec
diff --git a/cbits/glue.c b/cbits/glue.c
--- a/cbits/glue.c
+++ b/cbits/glue.c
@@ -15,3 +15,5 @@
   free(d->value);
   free(d);
 }
+
+void set_verbosity(long v) { SVDVerbosity = v; }
diff --git a/hmatrix-svdlibc.cabal b/hmatrix-svdlibc.cabal
--- a/hmatrix-svdlibc.cabal
+++ b/hmatrix-svdlibc.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                hmatrix-svdlibc
-version:             0.1.0.0
+version:             0.2.0.0
 synopsis:            SVDLIBC bindings for HMatrix
 description:
   Bindings for the sparse singular value decomposition
@@ -17,6 +17,10 @@
 build-type:          Simple
 cabal-version:       >=1.8
 extra-source-files:  cbits/*.c, include/*.h, svdlibc/*.c, svdlibc/*.h, svdlibc/README.md
+
+source-repository head
+  type:                git
+  location:            git://github.com/bgamari/gmatrix-svdlibc.git
 
 library
   exposed-modules:     Numeric.LinearAlgebra.SVD.SVDLIBC
diff --git a/include/glue.h b/include/glue.h
--- a/include/glue.h
+++ b/include/glue.h
@@ -10,3 +10,5 @@
 double *get_dmat_buffer(DMat d);
 
 void free_dmat(DMat d);
+
+void set_verbosity(long v);