Commit 2d8cfe49 authored by Christoph Ruegge's avatar Christoph Ruegge
Browse files

So my ghc-mod chokes on spaces in file names. Well...

parent 5240a278
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 -fllvm -optlo-O3 #-}
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 #-}
{-# LANGUAGE BangPatterns #-}
import Data.Array.Repa
......@@ -34,7 +33,7 @@ poisson n f = computeS . reshape gridshape . fromJust . linearSolve laplace $ as
--
-- reshape gridshape :: Array r DIM1 Double -> Array D DIM2 Double
matshape = Z:.(n^2):.(n^2) :: DIM2
matshape = Z:.(n*n):.(n*n) :: DIM2
laplace :: Mat Double
laplace = computeS $ fromFunction matshape computeElem
where computeElem :: DIM2 -> Double
......
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 -fllvm -optlo-O3 #-}
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 #-}
{-# LANGUAGE BangPatterns #-}
import Data.Array.Repa
......
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 -fllvm -optlo-O3 #-}
{-# OPTIONS_GHC -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE QuasiQuotes #-}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment