Permalink
Browse files

bugfix: game laoding was broken for darts

  • Loading branch information...
1 parent b1e07d2 commit c330edb98c0412308d4b03e859806ed17eb0e764 @Mikolaj Mikolaj committed Mar 16, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Item.hs
View
@@ -2,6 +2,7 @@ module Item where
import Data.Binary
import Data.Binary.Put
+import Data.Binary.Get
import Data.Map as M
import Data.Set as S
import Data.List as L
@@ -74,7 +75,7 @@ instance Binary ItemType where
put (Sword i) = putWord16le 7 >> put i
put Dart = putWord16le 8
get = do
- tag <- getWord8
+ tag <- getWord16le
case tag of
0 -> return Ring
1 -> return Scroll

0 comments on commit c330edb

Please sign in to comment.