diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-01-04 20:16:51 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-01-04 20:17:07 +0100 |
| commit | e350183823b887d25df58129141251d56616e8ae (patch) | |
| tree | f33794ef46ca982516e4b45aa352a96dbc55d55a | |
| parent | 237128fc3aa8ad6478a5cf759ba31e967b24fd77 (diff) | |
Pull orthotope from git
| -rw-r--r-- | cabal.project | 5 | ||||
| -rw-r--r-- | test/Tests/C.hs | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/cabal.project b/cabal.project index 697d3bd..63831f5 100644 --- a/cabal.project +++ b/cabal.project @@ -3,3 +3,8 @@ with-compiler: ghc-9.8.2 allow-newer: orthotope:deepseq + +source-repository-package + type: git + location: https://github.com/augustss/orthotope + tag: master diff --git a/test/Tests/C.hs b/test/Tests/C.hs index 148e7f6..0530f53 100644 --- a/test/Tests/C.hs +++ b/test/Tests/C.hs @@ -58,7 +58,7 @@ prop_sum_empty = property $ genRank $ \outrankm1@(SNat @nm1) -> do return (n :$: sht) -- n + 1 guard (any (== 0) (toList (shrTail sh))) -- traceM ("sh: " ++ show sh ++ " -> " ++ show (product sh)) - let arr = OR.fromList @Double @(n + 1) (toList sh) [] + let arr = OR.fromList @(n + 1) @Double (toList sh) [] let rarr = rfromOrthotope inrank arr OR.toList (rtoOrthotope (rsumOuter1 rarr)) === [] |