justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2021-12-09 14:43:38 +00:00
parent 24a0cc289f
commit 4324d298d4
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu.hs
+5 -5
View File
@@ -51,12 +51,12 @@ seedStartOptions =
trySeedFromClipboard :: Universe -> IO (Maybe Universe) trySeedFromClipboard :: Universe -> IO (Maybe Universe)
trySeedFromClipboard u = do trySeedFromClipboard u = do
mcstr <- getClipboardString mcstr <- getClipboardString
case mcstr of case mcstr >>= readMaybe of
Nothing -> pushScreen (seedStartMenu "INPUT UNUSABLE") (u & menuLayers %~ tail) Nothing -> sayinputunusable
Just str -> do
case readMaybe str of
Nothing -> pushScreen (seedStartMenu "INPUT UNUSABLE") (u & menuLayers %~ tail)
Just i -> return . Just $ startSeedGame i u Just i -> return . Just $ startSeedGame i u
where
sayinputunusable = pushScreen (seedStartMenu "INPUT UNUSABLE, EXPECTING INTEGER")
(u & menuLayers %~ tail)
slTitleOptions :: String -> [MenuOption] -> ScreenLayer slTitleOptions :: String -> [MenuOption] -> ScreenLayer
slTitleOptions title ops = slTitleOptionsEff title ops (popScreen . writeConfig) slTitleOptions title ops = slTitleOptionsEff title ops (popScreen . writeConfig)