Remove more (dead) Streaming code

src/Dodge/LoadSeed.hs

@@ -1,11 +1,12 @@
-module Dodge.LoadSeed
-    where
+module Dodge.LoadSeed where
+
+import Data.Functor
 import System.Directory
 import Text.Read
 
 loadSeed :: IO (Maybe Int)
-loadSeed = maybeReadFile "saveSlot/seed" >>= (return . (>>= readMaybe))
-    
+loadSeed = maybeReadFile "saveSlot/seed" <&> (>>= readMaybe)
+
 maybeReadFile :: String -> IO (Maybe String)
 maybeReadFile fpath = do
     fexists <- doesFileExist fpath