1 files changed, 0 insertions, 85 deletions
diff --git a/testsuite/tests/dph/nbody/Body.hs b/testsuite/tests/dph/nbody/Body.hs
deleted file mode 100644
index 8a116993a8..0000000000
--- a/testsuite/tests/dph/nbody/Body.hs
+++ /dev/null
@@ -1,85 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-
--- | Massful bodies in the simulation.
-module Body
-        ( Velocity
-        , Accel
-        , MassPoint
-        , Body
-
-        , unitBody
-        , massPointOfBody
-        , setMassOfBody
-        , setAccelOfBody
-        , setStartVelOfBody
-        , advanceBody)
-where
-import Util
-
-
--- Types ----------------------------------------------------------------------
--- We're using tuples instead of ADTs so we can put them in unboxed vectors.
-
--- | The velocity of a point.
-type Velocity   = (Double, Double)
-
--- | The acceleration of a point.
-type Accel      = (Double, Double)
-
--- | A point in 2D space with its mass.
-type MassPoint  = (Double, Double, Double)
-
--- | Bodies consist of a MassPoint, but also carry their velocity
---   and acceleration between steps of the simulation.
-type Body       = (MassPoint, Velocity, Accel)
-
-
--- Body -----------------------------------------------------------------------
--- | Make a body with unit mass and zero vel and acc.
-unitBody :: Double -> Double -> Body
-unitBody x y
-        = ((x, y, 1), (0, 0), (0, 0))
-
-
--- | Take the MassPoint of a body.
-massPointOfBody :: Body -> MassPoint
-massPointOfBody (mp, vel, acc)
-        = mp
-
-
--- | Set the mass of a body.
-setMassOfBody :: Double -> Body -> Body
-setMassOfBody mass ((x, y, _), vel, acc)
-        = ((x, y, mass), vel, acc)
-
-
--- | Set the acceleration of a body.
-setAccelOfBody :: Accel -> Body -> Body
-setAccelOfBody acc' (mp, vel, _)
-        = (mp, vel, acc')
-
-
--- | Set the starting velocity of a body.
---   It is set to rotate around the origin, with the speed proportional
---   to the sqrt of the distance from it. This seems to make nice simulations.
-setStartVelOfBody :: Double -> Body -> Body
-setStartVelOfBody startVel (mp@(x, y, mass), vel, acc)
- = let  pos             = (x, y)
-        (x', y')        = normaliseV (x, y)
-        vel'            = (y', -x')
-        vel''           = mulSV (sqrt (magV pos) * startVel) vel'
-
-   in   (mp, vel'', acc)
-
-
--- | Advance a body forwards in time.
-advanceBody :: Double -> Body -> Body
-advanceBody time
-        ( (px, py, mass)
-        , (vx, vy)
-        , acc@(ax, ay))
-
-  =     ( (px + time * vx, py + time * vy, mass)
-        , (vx + time * ax, vy + time * ay)
-        , acc)
-