From 09eee7716433253f2877380a09b6366fe030ee6e Mon Sep 17 00:00:00 2001
From: Ajeet D'Souza <98ajeet@gmail.com>
Date: Thu, 13 Jun 2019 13:18:17 +0530
Subject: [PATCH] Reorder imports

---
 src/CI.hs       | 18 +++++++++++++-----
 src/CI/TH.hs    |  8 ++++++--
 src/CI/Types.hs | 22 ++++++++++++----------
 3 files changed, 31 insertions(+), 17 deletions(-)

diff --git a/src/CI.hs b/src/CI.hs
index bf2e926..1d203a5 100644
--- a/src/CI.hs
+++ b/src/CI.hs
@@ -1,18 +1,26 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell   #-}
 
-module CI (Types.CI(..), isCI, getCI) where
+module CI
+  ( Types.CI(..)
+  , isCI
+  , getCI
+  ) where
 
-import           CI.TH               (getVendors)
-import qualified CI.Types            as Types
 import           Control.Arrow       ((***))
 import           Data.Bool           (bool)
 import           Data.Foldable       (find)
-import qualified Data.HashMap.Strict as HashMap
 import           Data.Maybe          (isJust)
-import qualified Data.Text           as T
 import           System.Environment  (getEnvironment)
 
+import           CI.TH               (getVendors)
+
+import qualified Data.HashMap.Strict as HashMap
+import qualified Data.Text           as T
+
+import qualified CI.Types            as Types
+
+
 vendors :: [Types.Vendor]
 vendors = $(getVendors)
 
diff --git a/src/CI/TH.hs b/src/CI/TH.hs
index 578d1b9..2a615d2 100644
--- a/src/CI/TH.hs
+++ b/src/CI/TH.hs
@@ -1,10 +1,14 @@
-module CI.TH (getVendors) where
+module CI.TH
+  ( getVendors
+  ) where
 
-import qualified CI.Types                   as Types
 import qualified Data.Aeson                 as Aeson
 import qualified Language.Haskell.TH        as TH
 import qualified Language.Haskell.TH.Syntax as TH
 
+import qualified CI.Types                   as Types
+
+
 getVendors :: TH.Q TH.Exp
 getVendors = TH.runIO readVendors >>= TH.lift
   where
diff --git a/src/CI/Types.hs b/src/CI/Types.hs
index 1082cd0..02eec7c 100644
--- a/src/CI/Types.hs
+++ b/src/CI/Types.hs
@@ -7,23 +7,25 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module CI.Types
-    ( CI(..)
-    , Vendor(..)
-    , VendorEnv(..)
-    , EnvVarName(..)
-    , EnvVarValue(..)) where
+  ( CI(..)
+  , Vendor(..)
+  , VendorEnv(..)
+  , EnvVarName(..)
+  , EnvVarValue(..)) where
+
+import           Data.Hashable              (Hashable)
+import           Data.HashMap.Strict        (HashMap)
+import           Data.Text                  (Text)
+import           Instances.TH.Lift          ()
 
 import qualified Data.Aeson                 as Aeson
 import qualified Data.Aeson.Casing          as Aeson
 import qualified Data.Aeson.TH              as Aeson
-import           Data.Hashable              (Hashable)
-import           Data.HashMap.Strict        (HashMap)
 import qualified Data.HashMap.Strict        as HashMap
-import           Data.Text                  (Text)
 import qualified Data.Text                  as T
-import           Instances.TH.Lift          ()
 import qualified Language.Haskell.TH.Syntax as TH
 
+
 data CI =
     CI_APPVEYOR -- http://www.appveyor.com/
   | CI_AZURE_PIPELINES -- https://azure.microsoft.com/en-us/services/devops/pipelines/
@@ -85,7 +87,7 @@ instance Aeson.FromJSON VendorEnv where
 
 instance Aeson.ToJSON VendorEnv where
   toJSON val = case val of
-    VendorEnvString key    -> Aeson.toJSON key
+    VendorEnvString name   -> Aeson.toJSON name
     VendorEnvList list     -> Aeson.toJSON list
     VendorEnvObject object -> Aeson.toJSON object