fallingblocks 0.1.1 → 0.1.2

raw patch · 2 files changed

+6/−2 lines, 2 files

Files

fallingblocks.cabal +3/−1
main.hs +3/−1

fallingblocks.cabal view

@@ -1,5 +1,5 @@ Name:                fallingblocks-Version:             0.1.1+Version:             0.1.2 Synopsis:            A fun falling blocks game. Description:         A game where blocks of different shapes fall down the screen.  If you 		     either fill an entire line or get four of the same color in a row,@@ -12,6 +12,8 @@ Build-Depends:       base, SDL, haskell98, containers, SDL-ttf, SDL-mixer >= 0.5.5 Build-Type:	     Simple Category:	     Game+data-files:          music.mp3, Joystick.ttf, blueblock.bmp,  cyanblock.bmp,  greenblock.bmp,  greyblock.bmp,  orangeblock.bmp,  purpleblock.bmp,  redblock.bmp,  yellowblock.bmp+extra-source-files:  Board.hs, GameController.hs,  GameState.hs,  GraphicsInfo.hs, Game.hs, Helpers.hs, Shape.hs,  SplashController.hs  Executable:          fallingblocks Main-is:             main.hs

main.hs view

@@ -1,3 +1,4 @@+import Paths_fallingblocks import Graphics.UI.SDL as SDL import Graphics.UI.SDL.TTF as TTF @@ -26,7 +27,8 @@   setCaption "Falling Blocks!" "Falling Blocks!"     mworked <- openAudio 44100 AudioS16Sys 2 4096-  music <- loadMUS "music.mp3"+  music <- loadMUS =<< getDataFileName "music.mp3"+     playMusic music (-1)    gi <- makeGraphics