haxparse 0.1.0.0 → 0.2.0.0

raw patch · 2 files changed

+12/−12 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ HaxParse.AST: instance Eq Action

+ HaxParse.AST: instance Eq Color

+ HaxParse.AST: instance Eq Direction

+ HaxParse.AST: instance Eq Disc

+ HaxParse.AST: instance Eq Event

+ HaxParse.AST: instance Eq Mask

+ HaxParse.AST: instance Eq Move

+ HaxParse.AST: instance Eq Player

+ HaxParse.AST: instance Eq Replay

+ HaxParse.AST: instance Eq Room

+ HaxParse.AST: instance Eq Side

Files

haxparse.cabal +1/−1
src/HaxParse/AST.hs +11/−11

haxparse.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:          haxparse-version:       0.1.0.0+version:       0.2.0.0 synopsis:      Readable HaxBall replays description:   Provides an interface for parsing HaxBall replays. homepage:      https://github.com/joelteon/haxparse

src/HaxParse/AST.hs view

@@ -5,16 +5,16 @@ import Data.Word import HaxParse.AST.TH -data Move = Nop | Move [Direction] | Kick | MoveKick [Direction] deriving Show+data Move = Nop | Move [Direction] | Kick | MoveKick [Direction] deriving (Eq, Show) -data Direction = Up | Left | Down | Right deriving Show+data Direction = Up | Left | Down | Right deriving (Eq, Show)  data Action = Action { actPlayerId   :: Key                      , actFrameCount :: Word32                      , actEvent      :: Event-                     } deriving Show+                     } deriving (Eq, Show) -data Side = Red | Blue | Spec deriving Show+data Side = Red | Blue | Spec deriving (Eq, Show)  data Event = NewPlayer { npId      :: Key                        , npName    :: ByteString@@ -33,7 +33,7 @@            | TeamChange Word32 Side            | DiscMove Move            | PingBroadcast [(Word32, Word8)]-           | TimeUpdate deriving (Show)+           | TimeUpdate deriving (Eq, Show)  makeIsFns ''Event @@ -42,9 +42,9 @@              | BigRounded | Huge | Custom              deriving (Bounded, Eq, Enum, Ord, Show) -data Color = Color String deriving Show+data Color = Color String deriving (Eq, Show) -data Mask = Mask [String] deriving Show+data Mask = Mask [String] deriving (Eq, Show)  data Disc = Disc { discId       :: Word32                  , pos          :: (Double, Double)@@ -56,7 +56,7 @@                  , color        :: Color                  , mask         :: Mask                  , group        :: Mask-                 } deriving (Show)+                 } deriving (Eq, Show)  data Room = Room { roomName     :: ByteString                  , locked       :: Bool@@ -71,7 +71,7 @@                  , timer        :: Double                  , pauseTimer   :: Word8                  , stadium      :: Stadium-                 } deriving (Show)+                 } deriving (Eq, Show)  data Player = Player { name     :: ByteString                      , initial  :: Bool@@ -85,7 +85,7 @@                      , country  :: ByteString                      , handicap :: Word16                      , pDiscId  :: Word32-                     } deriving (Show)+                     } deriving (Eq, Show)  data Replay = Replay { version    :: Word32                      , frameCount :: Word32@@ -95,4 +95,4 @@                      , discs      :: [Disc]                      , players    :: IntMap Player                      , events     :: [Action]-                     } deriving Show+                     } deriving (Eq, Show)