From 7443b25a5a51e48e00b8af393473d75359947225 Mon Sep 17 00:00:00 2001 From: Christiaan Baaij Date: Thu, 6 Aug 2009 14:07:46 +0200 Subject: [PATCH] Revert vectorTH to it's old implementation, so that it works with the new tfp --- Data/Param/TFVec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Data/Param/TFVec.hs b/Data/Param/TFVec.hs index 529c52c..1b2051e 100644 --- a/Data/Param/TFVec.hs +++ b/Data/Param/TFVec.hs @@ -100,9 +100,9 @@ vectorCPS xs = unsafeVectorCPS (toInteger (P.length xs)) xs -- FIXME: Not the most elegant solution... but it works for now in clash vectorTH :: (Lift a, Typeable a) => [a] -> ExpQ -vectorTH xs = sigE [| (TFVec xs) |] (decTFVecT (toInteger (P.length xs)) xs) --- vectorTH [] = [| empty |] --- vectorTH (x:xs) = [| x +> $(vectorTH xs) |] +-- vectorTH xs = sigE [| (TFVec xs) |] (decTFVecT (toInteger (P.length xs)) xs) +vectorTH [] = [| empty |] +vectorTH (x:xs) = [| x +> $(vectorTH xs) |] unsafeVector :: NaturalT s => s -> [a] -> TFVec s a unsafeVector l xs -- 2.30.2