Changeset 20397 for lang/haskell/nario/Main.hs

Timestamp:

10/01/08 22:17:57 (3 months ago)

Author:

mokehehe

Message:

画像定義ファイルを自動に作成するように

Files:

• lang/haskell/nario/Main.hs (modified) (2 diffs)

lang/haskell/nario/Main.hs

@@ -12 +12 @@
 import Field
 import Util
+import AppUtil
 import Const
+import Images
 import Font
 import Event
@@ -96 +98 @@
 process :: [[SDLKey]] -> IO [Scr]
 process kss = do
-        imgres <- loadImageResource images
+        imgres <- loadImageResource imageTypes
         st <- initialState
         let scrs = map (\scr -> scr imgres) $ loop [] st kss