fixhs 0.1 → 0.1.1

raw patch · 3 files changed

+2/−31 lines, 3 files

Files

fixhs.cabal +1/−1
src/Data/Coparser.hs +0/−6
src/Data/FIX/Message.hs +1/−24

fixhs.cabal view

@@ -1,5 +1,5 @@ name:                fixhs-version:             0.1+version:             0.1.1 description:         Financial Information eXchange (FIX) protocol (co)parser homepage:            http://github.com/urv/fixhs synopsis:            FIX (co)parser

src/Data/Coparser.hs view

@@ -25,7 +25,6 @@ import qualified Data.Text.Lazy.Builder as Builder      ( fromString, singleton, toLazyText ) import Data.Monoid ( mappend, mconcat )-import Control.DeepSeq ( NFData (..) ) import qualified Data.DList as DL import Data.Bits.Utils ( w82c ) @@ -93,11 +92,6 @@     append = mappend     concat = mconcat -instance NFData Builder where-    rnf = rnf . Builder.unpack . Builder.toLazyText--instance NFData (DL.DList Char) where-    rnf = rnf . unpack  class Coparser a where     coparse :: BuilderLike t c => a -> t

src/Data/FIX/Message.hs view

@@ -29,7 +29,6 @@ import Data.Attoparsec ( Parser )  import Data.LookupTable ( LookupTable ) import qualified Data.LookupTable as LT ( toList )-import Control.DeepSeq ( NFData (..) ) import Test.QuickCheck ( Gen ) import Data.FIX.Common ( delimiter ) import Data.Coparser ( BuilderLike (..), foldl' )@@ -66,7 +65,7 @@  --- should be alias of type in the typeclass LookupTable newtype ListOfValues a = LoV (IntMap a) -    deriving (LookupTable Int a, NFData)+    deriving (LookupTable Int a)  instance Show a => Show (ListOfValues a) where     show a = concatMap printKV $ LT.toList a@@ -117,26 +116,4 @@                 where                      _sumUp :: (Enum c) => Int -> c -> Int                     _sumUp t c = t + fromEnum c--instance Control.DeepSeq.NFData ByteString -instance Control.DeepSeq.NFData CalendarTime-instance Control.DeepSeq.NFData FIXGroupElement where-    rnf (FIXGroupElement _ s vs) = rnf s `seq` rnf vs --instance Control.DeepSeq.NFData FIXValue where-    rnf (FIXInt x) = rnf x-    rnf (FIXDouble x) = rnf x-    rnf (FIXChar x) = rnf x-    rnf (FIXBool x) = rnf x-    rnf (FIXString x) = rnf x-    rnf (FIXMultipleValueString x) = rnf x-    rnf (FIXTimestamp x) = rnf x-    rnf (FIXTimeOnly x) = rnf x-    rnf (FIXDateOnly x) = rnf x-    rnf (FIXMonthYear x) = rnf x-    rnf (FIXData x) = rnf x -    rnf (FIXGroup l es) = rnf l `seq` rnf es--instance Control.DeepSeq.NFData (FIXMessage a) where-    rnf (FIXMessage _ _ h b t) = rnf h `seq` rnf b `seq` rnf t