repa-examples 2.0.0.1 → 2.0.0.2

raw patch · 2 files changed

+37/−1 lines, 2 files

Files

• examples/Sobel/src-repa/Solver.hs +35/−0
• repa-examples.cabal +2/−1

@@ -0,0 +1,35 @@+{-# LANGUAGE PackageImports, BangPatterns, QuasiQuotes, PatternGuards #-}+{-# OPTIONS -Wall -fno-warn-missing-signatures -fno-warn-incomplete-patterns #-}++module Solver +	( Image+	, gradientX+	, gradientY )+where+import Data.Array.Repa 			as Repa+import Data.Array.Repa.Stencil++type Image	= Array DIM2 Float+++gradientX :: Image -> Image+{-# NOINLINE gradientX #-}+gradientX img+ 	= img `deepSeqArray` force2+ 	$ forStencil2 BoundClamp img+	  [stencil2|	-1  0  1+			-2  0  2+			-1  0  1 |]+++gradientY :: Image -> Image+{-# NOINLINE gradientY #-}+gradientY img+	= img `deepSeqArray` force2+	$ forStencil2 BoundClamp img+	  [stencil2|	 1  2  1+			 0  0  0+			-1 -2 -1 |] +++

@@ -1,5 +1,5 @@ Name:                repa-examples-Version:             2.0.0.1+Version:             2.0.0.2 License:             BSD3 License-file:        LICENSE Author:              The DPH Team@@ -127,6 +127,7 @@         template-haskell     >= 2.5 && < 2.6    Main-is: examples/Sobel/src-repa/Main.hs+  other-modules: Solver   hs-source-dirs: examples/Sobel/src-repa .   ghc-options:          -threaded