Add Read/Show instance for Creature

src/Dodge/RandImpulse.hs

@@ -0,0 +1,9 @@
+module Dodge.RandImpulse where
+import Dodge.Data.ActionPlan
+import Control.Monad.State
+import RandomHelp
+
+doRandImpulse :: RandImpulse -> State StdGen Impulse
+doRandImpulse ri = case ri of
+    RandImpulseList xs  -> takeOne xs
+    RandImpulseCircMove r -> Move <$> randInCirc r