Ticket #2416: MainOnly.hs

File MainOnly.hs, 213 bytes (added by sedillard, 6 years ago)
Line 
1
2module MainOnly where
3
4import Foreign
5import System
6
7import LibOnly
8
9loop :: Int -> Ptr (Vec4 Double) -> Ptr (Vec4 Double) -> IO ()
10loop n a b = mapM_ (\i -> peekElemOff a i >>= pokeElemOff b i) [0..n-1]
11   
12