Add roots and parents to adjacency function from Double Trees

src/Dodge/Projectile/Create.hs

@@ -1,4 +1,6 @@
-module Dodge.Projectile.Create where
+module Dodge.Projectile.Create 
+    ( createProjectile
+    ) where
 
 import Dodge.SoundLogic
 import Control.Monad
@@ -9,9 +11,8 @@ import qualified IntMapHelp as IM
 import LensHelp
 import qualified SDL
 
-
-createProjectile' :: Maybe Int -> Muzzle -> Item -> Creature -> World -> World
-createProjectile' mmagid muz itm cr = fromMaybe failsound $ do
+createProjectile :: Maybe Int -> Muzzle -> Item -> Creature -> World -> World
+createProjectile mmagid muz itm cr = fromMaybe failsound $ do
     magid <- mmagid
     ammoitem <- cr ^? crInv . ix magid
     matype <- ammoitem ^? itUse . amagType