repa 2.1.1.4 → 2.1.1.5

raw patch · 2 files changed

+13/−10 lines, 2 filesdep ~base

Dependency ranges changed: base

Files

• Data/Array/Repa/Stencil/Template.hs +11/−8
• repa.cabal +2/−2

@@ -74,22 +74,25 @@ 	-> Q Exp  makeStencil2' sizeX sizeY coeffs- = do	ix'		<- newName "ix"+ = do	let makeStencil' = mkName "makeStencil2"+	let dot'	 = mkName ":."+	let just'	 = mkName "Just"+	ix'		<- newName "ix" 	z'		<- [p| Z |] 	coeffs'		<- newName "coeffs"  	let fnCoeffs 		= LamE  [VarP ix']-	 	$ CaseE (VarE (mkName "ix"))-	 	$   [ Match	(InfixP (InfixP z' (mkName ":.") (LitP (IntegerL oy))) (mkName ":.") (LitP (IntegerL ox)))-				(NormalB $ ConE (mkName "Just") `AppE` LitE (IntegerL v))+	 	$ CaseE (VarE ix')+	 	$   [ Match	(InfixP (InfixP z' dot' (LitP (IntegerL oy))) dot' (LitP (IntegerL ox)))+				(NormalB $ ConE just' `AppE` LitE (IntegerL v)) 				[] | (oy, ox, v) <- coeffs ] 	  	    ++ [Match WildP 				(NormalB $ ConE (mkName "Nothing")) []]  	return-	 $ AppE (VarE (mkName "makeStencil2") `AppE` (LitE (IntegerL sizeX)) `AppE` (LitE (IntegerL sizeY)))-         $ LetE [ PragmaD (InlineP (mkName "coeffs") (InlineSpec True False Nothing))-		, ValD 	  (VarP    coeffs')          (NormalB fnCoeffs) [] ]-		(VarE (mkName "coeffs"))+	 $ AppE (VarE makeStencil' `AppE` (LitE (IntegerL sizeX)) `AppE` (LitE (IntegerL sizeY)))+         $ LetE [ PragmaD (InlineP coeffs' (InlineSpec True False Nothing))+		, ValD 	(VarP coeffs') (NormalB fnCoeffs) [] ]+		(VarE coeffs') 

@@ -1,5 +1,5 @@ Name:                repa-Version:             2.1.1.4+Version:             2.1.1.5 License:             BSD3 License-file:        LICENSE Author:              The DPH Team@@ -23,7 +23,7 @@  Library   Build-Depends: -        base                 == 4.4.*,+        base                 == 4.3.*,         ghc-prim             == 0.2.*,         vector               >= 0.7 && < 0.8,         QuickCheck           >= 2.3 && < 2.5,