damnpacket 0.3.0 → 0.3.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• damnpacket.cabal +1/−1
• src/Text/Damn/Packet/Parser.hs +2/−2

@@ -1,5 +1,5 @@ name:                damnpacket-version:             0.3.0+version:             0.3.1 synopsis:            Parsing dAmn packets license:             MIT license-file:        LICENSE

@@ -13,7 +13,7 @@ ) where  import           Prelude                   hiding (null)-import           Control.Applicative       ((<$>), (*>), liftA3, pure)+import           Control.Applicative       ((<$>), (*>), (<*), liftA3, pure) import           Control.Arrow             (second) import           Data.Char import qualified Data.Map as M@@ -91,7 +91,7 @@             case ch of                 Just '\n' -> liftA3 M.insert                                     (T.pack <$> some (notChar '='))-                                    (char '=' >> fmap T.pack (some (notChar '\n')))+                                    (char '=' *> fmap T.pack (some (notChar '\n')) <* char '\n')                                     argsP                 _         -> pure mempty