equal
deleted
inserted
replaced
850 liftIO $ YAML.encodeFile (B.unpack rname) (greeting rm, roomSaves rm) |
850 liftIO $ YAML.encodeFile (B.unpack rname) (greeting rm, roomSaves rm) |
851 |
851 |
852 processAction (LoadRoom rname) = do |
852 processAction (LoadRoom rname) = do |
853 Right (g, rs) <- io $ YAML.decodeFileEither (B.unpack rname) |
853 Right (g, rs) <- io $ YAML.decodeFileEither (B.unpack rname) |
854 processAction $ ModifyRoom $ \r -> r{greeting = g, roomSaves = rs} |
854 processAction $ ModifyRoom $ \r -> r{greeting = g, roomSaves = rs} |
855 |
855 |
856 #else |
856 #else |
857 processAction SaveReplay = return () |
857 processAction SaveReplay = return () |
858 processAction CheckRecord = return () |
858 processAction CheckRecord = return () |
859 processAction (CheckFailed _) = return () |
859 processAction (CheckFailed _) = return () |
860 processAction (CheckSuccess _) = return () |
860 processAction (CheckSuccess _) = return () |