Fix embedFile issue.

See here for someone with a similar problem: snoyberg/file-embed#18

hjsonschema now compiles even when referenced locally from another
project and `stack ghci` is used in that project.

Also update changelog and README.

README.md

@@ -4,6 +4,8 @@ A Haskell implementation of the current [JSON Schema](http://json-schema.org/) s
 
 [Hackage](https://hackage.haskell.org/package/hjsonschema) / [GitHub](https://github.com/seagreen/hjsonschema) / [Travis CI](https://travis-ci.org/seagreen/hjsonschema)
 
+Requires [pcre](http://www.pcre.org/) (`pkgs.pcre` in Nixpkgs).
+
 NOTE: You CANNOT use untrusted JSON data to make schemas. Schemas with circular references can cause infinite loops. See the issue list for more info.
 
 # Example

changelog.txt

@@ -1,3 +1,13 @@
++ Add a new `referencesToValidity` function.
++ `checkSchema` now check referenced schema's validity in addition to the
+starting schema's validity. This change bubbles up to the one-step validation
+functions as well.
++ Switch most of the fetching code to use `URISchemaMap` instead of
+`ReferencedSchemas`. It didn't need to know about the more complicated data
+type.
++ Fix a misuse of the file-embed package that caused problem including
+hjsonschema locally in other projects.
+
 # 0.10.0.3
 
 + Bump http-client.

src/Data/JsonSchema/Draft4.hs

@@ -41,7 +41,8 @@ import           Prelude
 import           Control.Applicative
 import           Control.Arrow                   (first, left)
 import qualified Data.ByteString.Lazy            as LBS
-import           Data.FileEmbed
+import           Data.FileEmbed                  (embedFile,
+                                                  makeRelativeToProject)
 import qualified Data.HashMap.Strict             as H
 import           Data.List.NonEmpty              (NonEmpty)
 import qualified Data.List.NonEmpty              as N
@@ -153,7 +154,9 @@ schemaValidity = IN.runValidate referenced (SchemaWithURI d4 Nothing) . toJSON
   where
     d4 :: Schema
     d4 = fromMaybe (error "Schema decode failed (this should never happen)")
-       . decode . LBS.fromStrict $ $(embedFile "src/draft4.json")
+       . decode
+       . LBS.fromStrict
+       $ $(makeRelativeToProject "src/draft4.json" >>= embedFile)
 
     referenced :: ReferencedSchemas Schema
     referenced = ReferencedSchemas