compiles but does nothing?

Main.hs

data GameState = Running | Paused | Stopped

data World = World {
  gameState :: GameState,
	loopCount :: Int 
}

gameloop world =
	case gameState world of
		Running -> do
			userInput <- getLine
			case userInput of
				"pause" -> gameloop world { gameState = Paused }
				"stop"  -> gameloop world { gameState = Stopped }
				_       -> do
					let newCount = loopCount world + 1
					putStrLn ("You typed: " ++ userInput)
					putStrLn ("I've looped " ++ show newCount ++ " times") 
					gameloop world { loopCount = newCount }
		Paused  -> gameloop world
		Stopped -> return world


main = do
	let world = gameloop $ World Running 0
	putStrLn ""