MazesOfMonad 1.0 → 1.0.1

raw patch · 4 files changed

+18/−11 lines, 4 files

Files

• MazesOfMonad.cabal +8/−8
• WHATSNEW.txt +5/−0
• src/Main.hs +1/−1
• src/MoresmauJP/Core/Screen.hs +4/−2

@@ -1,5 +1,5 @@ Name:                MazesOfMonad
-Version:             1.0
+Version:             1.0.1
 Description:         MazesOfMonad is a console-based Role Playing Game. You create characters
 	with their strong and weak points, and try to complete mazes that are randomly generated. You can pick up gold and items on the way,
 	meet monsters, and deal with them as you want. You can fight, use magic, bribe, trade, steal... This is only a simple game that I did to see what building a 
@@ -8,22 +8,22 @@ License:             BSD3
 License-file:        LICENSE
 Author:              JP Moresmau
-Category:			 Game
+Category:            Game
 Maintainer:          jpmoresmau@gmail.com
-Synopsis:			 Console-based Role Playing Game
-Build-Type: 		 Simple
+Synopsis:            Console-based Role Playing Game
+Build-Type:          Simple
 Build-Depends:       base, HUnit, random, 
 	regex-posix, containers, filepath, directory, pretty, haskell98, 
 	array, mtl, old-locale, time
 tested-with:         GHC==6.10.1
-data-files:			 README.txt
+data-files:          README.txt, WHATSNEW.txt
 
 Executable:          mazesofmonad
 Main-is:             Main.hs
-extensions: 		 FlexibleInstances, UndecidableInstances, MultiParamTypeClasses, GeneralizedNewtypeDeriving
+extensions:          FlexibleInstances, UndecidableInstances, MultiParamTypeClasses, GeneralizedNewtypeDeriving
 hs-source-dirs:      src
-include-dirs:		 src/
-other-modules:		 MoresmauJP.Core.Screen, MoresmauJP.Maze1.Maze,MoresmauJP.Maze1.MazeGame
+include-dirs:        src/
+other-modules:       MoresmauJP.Core.Screen, MoresmauJP.Maze1.Maze,MoresmauJP.Maze1.MazeGame
 					 ,MoresmauJP.Rpg.Actions,MoresmauJP.Rpg.ActionsTests,MoresmauJP.Rpg.Arena,MoresmauJP.Rpg.ArenaTests
 					 ,MoresmauJP.Rpg.Character,MoresmauJP.Rpg.CharacterTests,MoresmauJP.Rpg.Fight,MoresmauJP.Rpg.FightTests
 					 ,MoresmauJP.Rpg.Inventory,MoresmauJP.Rpg.InventoryTests,MoresmauJP.Rpg.Items,MoresmauJP.Rpg.ItemsTests

@@ -0,0 +1,5 @@+1.0.1:
+	Fix issue on Y/N question (crash on hitting enter directly, now uses default value correctly)
+	
+1.0:
+	Initial release

@@ -26,7 +26,7 @@ main :: IO()
 main = do
 	gs<-initialGameStateInApp
-	start (WList ["Welcome to Mazes of Monad, JP Moresmau's RPG Game","If you don't know what to type, try help!"], gs)
+	start (WList ["Welcome to Mazes of Monad, JP Moresmau's Role-Playing Game","If you don't know what to type, try help!"], gs)
 	return ()
 
 -- | run unit tests

@@ -132,9 +132,11 @@ 	mapM_ putStrLn ss1
 	let choices=if def then " (Y/n)" else " (y/N)"
 	putStrLn (s ++choices)
-	--return (Just (checkSelector def af))
 	cmds <- getArgs
-	return (Just (af ((map toUpper (head cmds))=="Y")))
+	let ch=if null cmds
+		then def
+		else (map toUpper (head cmds))=="Y"
+	return (Just (af ch))
 renderWidget (WCombo ss1 ss2 af)=do
 	mapM_ putStrLn ss1
 	let choices=zipWith (\a b -> ((show a),b)) [1..] ss2