Commit before static wall overhaul

2021-07-19 01:33:52 +02:00
parent e657d8e852
commit 6905c6f154
17 changed files with 58 additions and 51 deletions
@@ -32,4 +32,5 @@ pokeVertex ptr stride n fs = do
    return $ n + 1

 pokeArrayOff :: Storable a => Ptr a -> Int -> [a] -> IO ()
+{-# INLINE pokeArrayOff #-}
 pokeArrayOff ptr i = zipWithM_ (pokeElemOff ptr) [i..]