From 735565dc1d60b5c98620a279fc044d416d8cdd88 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Picca=20Fr=C3=A9d=C3=A9ric-Emmanuel?= <picca@debian.org>
Date: Fri, 3 Apr 2015 18:54:15 +0200
Subject: [PATCH] [contrib] generic computeHkl method

---
 contrib/hkl.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/hkl.hs b/contrib/hkl.hs
index 30acaf5b..f7baa24e 100644
--- a/contrib/hkl.hs
+++ b/contrib/hkl.hs
@@ -123,7 +123,7 @@ computeHkl :: Diffractometer -> [Angle Double] -> Lattice -> Vector Double
 computeHkl (Diffractometer sample detector) values lattice =
     unapply q (Holder (zipWith ($) sample s ++ [UB lattice]))
         where
-          (s, d) = splitAt 6 values
+          (s, d) = splitAt (length sample) values
           kf = apply (Holder (zipWith ($) detector d)) ki
           q = kf Prelude.- ki
 
-- 
2.11.4.GIT