git.iko.soy/typeable/hjsonschema
on master help sign in
Get GHC 7.8 working again.
commit49fab058dafb7793bc3f7cd09b38b7b34af9bb43 authorIan Grant Jeffries <ian@housejeffries.com> dateWed 2 Mar 2016, 20:04 (11 years ago) parentc734565
2 files changed+3−2
compare with master
unifiedsplit
examples/CustomSchema.hs+2 src/Data/Validator/Draft4/Any.hs+1−2
examples/CustomSchema.hs+2
@@ -9,8 +9,10 @@
99
1010module CustomSchema where
1111
12+import Control.Applicative
1213import Data.Aeson
1314import Data.Maybe (maybeToList)
15+import Data.Monoid
1416import Data.Text (Text)
1517import qualified Data.Text as T
1618
src/Data/Validator/Draft4/Any.hs+1−2
@@ -16,7 +16,7 @@ import Data.Validator.Reference
1616import Import
1717
1818-- For GHCs before 7.10:
19−import Prelude hiding (any)
19+import Prelude hiding (any, elem)
2020
2121--------------------------------------------------
2222-- * $ref
@@ -81,7 +81,6 @@ instance Arbitrary EnumVal where
8181
8282enumVal :: EnumVal -> Value -> Maybe (Failure ())
8383enumVal (EnumVal vs) x
84− | null vs = Nothing
8584 | not (allUniqueValues' vs) = Nothing
8685 | x `elem` vs = Nothing
8786 | otherwise =