Merge pull request #16 from f-o-a-m/string-like-hex

add typeclass instance for parsing

Author: martyall

bower.json

@@ -24,7 +24,8 @@
     "purescript-simple-json": "^4.0.0",
     "purescript-ordered-collections": "^1.0.0",
     "purescript-bytestrings": "^7.0.0",
-    "purescript-argonaut": "^5.0.0"
+    "purescript-argonaut": "^5.0.0",
+    "purescript-parsing": "5.0.0"
   },
   "devDependencies": {
     "purescript-psci-support": "^4.0.0",

src/Network/Ethereum/Core/HexString.purs

@@ -44,6 +44,7 @@ import Network.Ethereum.Core.BigNumber (BigNumber, toString, hexadecimal)
 import Node.Encoding (Encoding(Hex, UTF8, ASCII))
 import Partial.Unsafe (unsafePartial)
 import Simple.JSON (class ReadForeign, class WriteForeign)
+import Text.Parsing.Parser.String (class StringLike)
 
 --------------------------------------------------------------------------------
 -- * Signed Values
@@ -90,6 +91,8 @@ derive newtype instance hexStringOrd :: Ord HexString
 derive newtype instance semigpStringEq :: Semigroup HexString
 derive newtype instance monoidStringEq :: Monoid HexString
 
+derive newtype instance stringLikeHexString :: StringLike HexString
+
 _encode :: HexString -> String
 _encode = append "0x" <<< unHex
 
@@ -156,6 +159,7 @@ dropHex n (HexString hx) = HexString $ S.drop n hx
 nullWord :: HexString
 nullWord = HexString "0000000000000000000000000000000000000000000000000000000000000000"
 
+
 --------------------------------------------------------------------------------
 -- | Utils
 --------------------------------------------------------------------------------