Add fix bug in terminal destruction effects

src/Dodge/Base.hs

@@ -53,6 +53,10 @@ safeHead :: [a] -> Maybe a
 safeHead (x:_) = Just x
 safeHead _ = Nothing
 
+safeUncons :: [a] -> Maybe (a,[a])
+safeUncons (x:xs) = Just (x,xs)
+safeUncons _ = Nothing
+
 errorHead :: String -> [a] -> a
 errorHead _ (x:_) = x
 errorHead s [] = error s