spawnBlock' :: IO Block
spawnBlock' = do btype <- liftIO $ randomRIO (minBound, maxBound)
                 return $ Block { position = (4, 0)
                                , guts = (getGuts btype)
                                }
-- | for use inside Game monad
spawnBlock' :: IO Block
spawnBlock' = do btype <- liftIO $ randomRIO (minBound, maxBound)
                 return $ Block { position = (4, 0)
                                , guts = (getGuts btype)
                                }
-- | for use inside Game monad
spawnBlock' = do btype <- liftIO $ randomRIO (minBound, maxBound)
                 return $ Block { position = (4, 0)
                                , guts = (getGuts btype)
                                }
-- | for use inside Game monad