fix a couple warnings

3 files changed, 4 insertions, 6 deletions

diff --git a/src/Conftrack/Pretty.hs b/src/Conftrack/Pretty.hs
index 8a11204..cf10b20 100644
--- a/src/Conftrack/Pretty.hs
+++ b/src/Conftrack/Pretty.hs
@@ -3,14 +3,12 @@
 module Conftrack.Pretty where
 
 
-import Conftrack.Value (Origin (..), ConfigError, ConfigValue (..))
+import Conftrack.Value (Origin(..), ConfigError, ConfigValue(..), Key)
 import Conftrack (Warning)
 import Data.Map (Map)
-import Conftrack.Value (Key)
 import qualified Data.Map.Strict as M
 import qualified Data.Text.IO as T
 import qualified Data.Text as T
-import Data.List (sortOn)
 import GHC.Exts (groupWith)
 
 
diff --git a/src/Conftrack/Source/Trivial.hs b/src/Conftrack/Source/Trivial.hs
index ff22ee9..d4151c2 100644
--- a/src/Conftrack/Source/Trivial.hs
+++ b/src/Conftrack/Source/Trivial.hs
@@ -7,10 +7,10 @@
 
 module Conftrack.Source.Trivial where
 
-import Conftrack.Value (Key, Value(..), ConfigError(..), Origin)
+import Conftrack.Value (Key, Value(..), ConfigError(..))
 import Conftrack.Source (SomeSource(..), ConfigSource (..))
 
-import Control.Monad.State (get, modify, StateT (..), MonadState (..))
+import Control.Monad.State (get, modify, MonadState (..))
 import Data.Map.Strict (Map)
 import qualified Data.Map.Strict as M
 import Data.Function ((&))
diff --git a/src/Conftrack/Value.hs b/src/Conftrack/Value.hs
index 50e4e30..3eda24a 100644
--- a/src/Conftrack/Value.hs
+++ b/src/Conftrack/Value.hs
@@ -48,7 +48,7 @@ key = QuasiQuoter
 
 
 prefixedWith :: Key -> [KeyPart] -> Key
-prefixedWith (Key key) prefix = Key (prependList prefix key)
+prefixedWith (Key k) prefix = Key (prependList prefix k)
 
 data ConfigError =
   ParseError Text