From b73fc0c7e52b92eb66e610f072b224f928df0a4e Mon Sep 17 00:00:00 2001
From: Maxim Baz <z0rch.coding@gmail.com>
Date: Sat, 28 Feb 2015 19:14:47 +0100
Subject: GHC 7.11 cannot deduce Fractional and Element instances

---
 packages/base/src/Data/Packed/Internal/Numeric.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'packages/base')

diff --git a/packages/base/src/Data/Packed/Internal/Numeric.hs b/packages/base/src/Data/Packed/Internal/Numeric.hs
index 9adc023..257ad73 100644
--- a/packages/base/src/Data/Packed/Internal/Numeric.hs
+++ b/packages/base/src/Data/Packed/Internal/Numeric.hs
@@ -241,7 +241,7 @@ instance Container Vector (Complex Float)
 
 ---------------------------------------------------------------
 
-instance (Container Vector a) => Container Matrix a
+instance (Fractional a, Element a, Container Vector a) => Container Matrix a
   where
     size' = size
     scale' x = liftMatrix (scale' x)
-- 
cgit v1.2.3


From 586373e751c77515147f5c109edca5a700e133dc Mon Sep 17 00:00:00 2001
From: Dominic Steinitz <dominic@steinitz.org>
Date: Sun, 1 Mar 2015 08:55:41 +0000
Subject: Add Cholesky to Static.

---
 packages/base/src/Numeric/LinearAlgebra/Static.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'packages/base')

diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index 037396d..3398e6a 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -52,7 +52,7 @@ module Numeric.LinearAlgebra.Static(
     linSolve, (<\>),
     -- * Factorizations
     svd, withCompactSVD, svdTall, svdFlat, Eigen(..),
-    withNullspace, qr,
+    withNullspace, qr, chol,
     -- * Misc
     mean,
     Disp(..), Domain(..),
@@ -68,7 +68,7 @@ import Numeric.LinearAlgebra.HMatrix hiding (
     row,col,vector,matrix,linspace,toRows,toColumns,
     (<\>),fromList,takeDiag,svd,eig,eigSH,eigSH',
     eigenvalues,eigenvaluesSH,eigenvaluesSH',build,
-    qr,size,app,mul,dot)
+    qr,size,app,mul,dot,chol)
 import qualified Numeric.LinearAlgebra.HMatrix as LA
 import Data.Proxy(Proxy)
 import Numeric.LinearAlgebra.Static.Internal
@@ -306,6 +306,9 @@ instance KnownNat n => Eigen (Sq n) (C n) (M n n)
       where
         (l,v) = LA.eig m
 
+chol :: KnownNat n => Sym n -> Sq n
+chol (extract . unSym -> m) = mkL $ LA.cholSH m
+
 --------------------------------------------------------------------------------
 
 withNullspace
-- 
cgit v1.2.3


From 0d18936b19a4c2a0317660934f00b4391c98dc09 Mon Sep 17 00:00:00 2001
From: "Thomas M. DuBuisson" <tommd@galois.com>
Date: Wed, 11 Mar 2015 11:12:27 -0700
Subject: In C99 int32_t is from stdint.h

A windows user was complaining about this issue on IRC today, so here's
a patch.
---
 packages/base/src/C/vector-aux.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'packages/base')

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index dda47cb..599f69e 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -13,6 +13,7 @@ typedef float  complex TCF;
 #include <math.h>
 #include <stdio.h>
 #include <stdlib.h>
+#include <stdint.h>
 
 #define MACRO(B) do {B} while (0)
 #define ERROR(CODE) MACRO(return CODE;)
-- 
cgit v1.2.3