From 4324d298d40e319558fb48023f204a4827ad8569 Mon Sep 17 00:00:00 2001 From: justin Date: Thu, 9 Dec 2021 14:43:38 +0000 Subject: [PATCH] Cleanup --- src/Dodge/Menu.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Dodge/Menu.hs b/src/Dodge/Menu.hs index 94e9dea04..011df5199 100644 --- a/src/Dodge/Menu.hs +++ b/src/Dodge/Menu.hs @@ -51,12 +51,12 @@ seedStartOptions = trySeedFromClipboard :: Universe -> IO (Maybe Universe) trySeedFromClipboard u = do mcstr <- getClipboardString - case mcstr of - Nothing -> pushScreen (seedStartMenu "INPUT UNUSABLE") (u & menuLayers %~ tail) - Just str -> do - case readMaybe str of - Nothing -> pushScreen (seedStartMenu "INPUT UNUSABLE") (u & menuLayers %~ tail) - Just i -> return . Just $ startSeedGame i u + case mcstr >>= readMaybe of + Nothing -> sayinputunusable + Just i -> return . Just $ startSeedGame i u + where + sayinputunusable = pushScreen (seedStartMenu "INPUT UNUSABLE, EXPECTING INTEGER") + (u & menuLayers %~ tail) slTitleOptions :: String -> [MenuOption] -> ScreenLayer slTitleOptions title ops = slTitleOptionsEff title ops (popScreen . writeConfig)