packages feed

battleship-combinatorics 0.0 → 0.0.0.1

raw patch · 2 files changed

+9/−4 lines, 2 filesdep +semigroupsPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependencies added: semigroups

API changes (from Hackage documentation)

+ Combinatorics.Battleship.Fleet: instance Data.Semigroup.Semigroup Combinatorics.Battleship.Fleet.T

Files

battleship-combinatorics.cabal view
@@ -1,5 +1,5 @@ Name:             battleship-combinatorics-Version:          0.0+Version:          0.0.0.1 License:          BSD3 License-File:     LICENSE Author:           Henning Thielemann <haskell@henning-thielemann.de>@@ -17,7 +17,7 @@ Build-Type:       Simple  Source-Repository this-  Tag:         0.0+  Tag:         0.0.0.1   Type:        darcs   Location:    http://hub.darcs.net/thielema/battleship-combinatorics/ @@ -40,8 +40,9 @@     containers >=0.4.2 && <0.6,     deepseq >=1.3 && <1.5,     non-empty >=0.2.1 && <0.4,+    semigroups >=0.1 && <1.0,     transformers >=0.3 && <0.6,-    utility-ht >=0.0.8 && <0.13,+    utility-ht >=0.0.8 && <0.1,     prelude-compat >=0.0 && <0.0.1,     base >=4.5 && <5 
src/Combinatorics/Battleship/Fleet.hs view
@@ -40,6 +40,7 @@ import Data.Bool.HT (if', )  import Data.Monoid (Monoid, mempty, mappend, )+import Data.Semigroup (Semigroup, (<>), ) import Data.Bits ((.&.), (.|.), xor, shiftL, shiftR, ) import Data.Word (Word32, ) @@ -66,9 +67,12 @@          showString "Fleet.fromList " .          shows (toList x) +instance Semigroup T where+   Cons x <> Cons y = Cons (x+y)+ instance Monoid T where    mempty = Cons 0-   mappend (Cons x) (Cons y) = Cons (x+y)+   mappend = (<>)  instance Storable T where    sizeOf = Store.sizeOf decons