{-# LANGUAGE PArr, ParallelListComp #-}
{-# OPTIONS -fvectorise #-}

module NegConst (negs)
where

import qualified Prelude
import Data.Array.Parallel.Prelude
import Data.Array.Parallel.Prelude.Double

negs :: [:Double:] -> [:Double:]
negs xs = [: -1.0 | x <- xs :] -- this causes an error
-- negs xs = [: (0.0 - 1.0) | x <- xs :] -- this is OK