raw-feldspar 0.2 → 0.2.1

raw patch · 2 files changed

+8/−6 lines, 2 files

Files

• raw-feldspar.cabal +1/−1
• src/Feldspar/Data/Vector.hs +7/−5

@@ -1,5 +1,5 @@ name:                raw-feldspar-version:             0.2+version:             0.2.1 synopsis:            Resource-Aware Feldspar description:         An implementation of the Feldspar EDSL with focus on                      resource-awareness.

@@ -799,11 +799,13 @@       ((len `mod` value n) == 0)       ("unroll: length not divisible by " Prelude.++ show n)     for (0,n',Excl len) $ \i ->-      Prelude.sequence_-        [ do k <- shareM (i + value j)-             write k (vec!k)-          | j <- [0..n-1]-        ]+      if n Prelude.== 1+        then write i (vec!i)+        else Prelude.sequence_+          [ do k <- shareM (i + value j)+               write k (vec!k)+            | j <- [0..n-1]+          ]   where     n'  = Prelude.fromIntegral n     len = length vec