From 5e7113381296796e83845faae79288183ceb3272 Mon Sep 17 00:00:00 2001 From: Matthias Fischmann Date: Tue, 18 Jun 2019 21:41:26 +0200 Subject: [PATCH] Fixup --- src/Data/Swagger/Internal/Schema/Validation.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Data/Swagger/Internal/Schema/Validation.hs b/src/Data/Swagger/Internal/Schema/Validation.hs index 3b0671f..5ebb19e 100644 --- a/src/Data/Swagger/Internal/Schema/Validation.hs +++ b/src/Data/Swagger/Internal/Schema/Validation.hs @@ -1,5 +1,4 @@ {-# OPTIONS_GHC -Wall #-} -{-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE FlexibleInstances #-} @@ -8,7 +7,6 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE PackageImports #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} @@ -24,6 +22,9 @@ -- Validate JSON values with Swagger Schema. module Data.Swagger.Internal.Schema.Validation where +import Prelude () +import Prelude.Compat + import Control.Applicative import Control.Lens import Control.Monad (when) @@ -35,7 +36,6 @@ import Data.HashMap.Strict (HashMap) import qualified Data.HashMap.Strict as HashMap import qualified Data.HashMap.Strict.InsOrd as InsOrdHashMap import qualified "unordered-containers" Data.HashSet as HashSet -import Prelude.Compat import Data.Proxy import Data.Scientific (Scientific, isInteger) import Data.Text (Text)