data-flags 0.0.3 → 0.0.3.1

raw patch · 2 files changed

+3/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• data-flags.cabal +1/−2
• src/Data/Flags/TH.hs +2/−2

@@ -1,5 +1,5 @@ Name: data-flags-Version: 0.0.3+Version: 0.0.3.1 Category: Data Stability: experimental Synopsis: A package for working with bit masks and flags in general.@@ -18,7 +18,6 @@  Library   Build-Depends: base < 5, template-haskell-  Extensions: TemplateHaskell   Hs-Source-Dirs: src   GHC-Options: -Wall   Exposed-Modules:

@@ -29,7 +29,7 @@ --   instance of 'Data.Bits.Bits'. dataBitsAsFlags :: Name -> Q [Dec] dataBitsAsFlags typeName = do-  noFlagsE <- [| fromInteger 0 |]+  noFlagsE <- appE (varE 'fromInteger) (litE $ IntegerL 0)   andFlagsE <- [| (.|.) |]   commonFlagsE <- [| (.&.) |]    butFlagsE <- [| \x -> \y -> x .&. (complement y) |]@@ -43,7 +43,7 @@ --   instances declarations for the specified instance of 'Data.Bits.Bits'. dataBitsAsBoundedFlags :: Name -> Q [Dec] dataBitsAsBoundedFlags typeName = do-  allFlagsE <- [| fromInteger (-1) |]+  allFlagsE <- appE (varE 'fromInteger) (litE $ IntegerL (-1))   enumFlagsE <- [| \x -> map (setBit 0) $                            filter (testBit x) [0 .. bitSize x - 1] |]   (++ [inst ''BoundedFlags typeName