diff --git a/amazonka-importexport.cabal b/amazonka-importexport.cabal
--- a/amazonka-importexport.cabal
+++ b/amazonka-importexport.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-importexport
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Import/Export SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -47,5 +47,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core
-        , base          >= 4.7 && < 5
+          amazonka-core == 0.0.1.*
+        , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/ImportExport/CreateJob.hs b/gen/Network/AWS/ImportExport/CreateJob.hs
--- a/gen/Network/AWS/ImportExport/CreateJob.hs
+++ b/gen/Network/AWS/ImportExport/CreateJob.hs
@@ -58,17 +58,17 @@
 import qualified GHC.Exts
 
 data CreateJob = CreateJob
-    { _cjJobType          :: Text
+    { _cjJobType          :: JobType
     , _cjManifest         :: Text
     , _cjManifestAddendum :: Maybe Text
     , _cjValidateOnly     :: Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'CreateJob' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'cjJobType' @::@ 'Text'
+-- * 'cjJobType' @::@ 'JobType'
 --
 -- * 'cjManifest' @::@ 'Text'
 --
@@ -76,7 +76,7 @@
 --
 -- * 'cjValidateOnly' @::@ 'Bool'
 --
-createJob :: Text -- ^ 'cjJobType'
+createJob :: JobType -- ^ 'cjJobType'
           -> Text -- ^ 'cjManifest'
           -> Bool -- ^ 'cjValidateOnly'
           -> CreateJob
@@ -87,7 +87,7 @@
     , _cjManifestAddendum = Nothing
     }
 
-cjJobType :: Lens' CreateJob Text
+cjJobType :: Lens' CreateJob JobType
 cjJobType = lens _cjJobType (\s a -> s { _cjJobType = a })
 
 cjManifest :: Lens' CreateJob Text
@@ -103,11 +103,11 @@
 data CreateJobResponse = CreateJobResponse
     { _cjrAwsShippingAddress    :: Maybe Text
     , _cjrJobId                 :: Maybe Text
-    , _cjrJobType               :: Maybe Text
+    , _cjrJobType               :: Maybe JobType
     , _cjrSignature             :: Maybe Text
     , _cjrSignatureFileContents :: Maybe Text
     , _cjrWarningMessage        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'CreateJobResponse' constructor.
 --
@@ -117,7 +117,7 @@
 --
 -- * 'cjrJobId' @::@ 'Maybe' 'Text'
 --
--- * 'cjrJobType' @::@ 'Maybe' 'Text'
+-- * 'cjrJobType' @::@ 'Maybe' 'JobType'
 --
 -- * 'cjrSignature' @::@ 'Maybe' 'Text'
 --
@@ -142,7 +142,7 @@
 cjrJobId :: Lens' CreateJobResponse (Maybe Text)
 cjrJobId = lens _cjrJobId (\s a -> s { _cjrJobId = a })
 
-cjrJobType :: Lens' CreateJobResponse (Maybe Text)
+cjrJobType :: Lens' CreateJobResponse (Maybe JobType)
 cjrJobType = lens _cjrJobType (\s a -> s { _cjrJobType = a })
 
 cjrSignature :: Lens' CreateJobResponse (Maybe Text)
diff --git a/gen/Network/AWS/ImportExport/GetStatus.hs b/gen/Network/AWS/ImportExport/GetStatus.hs
--- a/gen/Network/AWS/ImportExport/GetStatus.hs
+++ b/gen/Network/AWS/ImportExport/GetStatus.hs
@@ -89,7 +89,7 @@
     , _gsrCurrentManifest       :: Maybe Text
     , _gsrErrorCount            :: Maybe Int
     , _gsrJobId                 :: Maybe Text
-    , _gsrJobType               :: Maybe Text
+    , _gsrJobType               :: Maybe JobType
     , _gsrLocationCode          :: Maybe Text
     , _gsrLocationMessage       :: Maybe Text
     , _gsrLogBucket             :: Maybe Text
@@ -99,7 +99,7 @@
     , _gsrSignature             :: Maybe Text
     , _gsrSignatureFileContents :: Maybe Text
     , _gsrTrackingNumber        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'GetStatusResponse' constructor.
 --
@@ -117,7 +117,7 @@
 --
 -- * 'gsrJobId' @::@ 'Maybe' 'Text'
 --
--- * 'gsrJobType' @::@ 'Maybe' 'Text'
+-- * 'gsrJobType' @::@ 'Maybe' 'JobType'
 --
 -- * 'gsrLocationCode' @::@ 'Maybe' 'Text'
 --
@@ -177,7 +177,7 @@
 gsrJobId :: Lens' GetStatusResponse (Maybe Text)
 gsrJobId = lens _gsrJobId (\s a -> s { _gsrJobId = a })
 
-gsrJobType :: Lens' GetStatusResponse (Maybe Text)
+gsrJobType :: Lens' GetStatusResponse (Maybe JobType)
 gsrJobType = lens _gsrJobType (\s a -> s { _gsrJobType = a })
 
 gsrLocationCode :: Lens' GetStatusResponse (Maybe Text)
diff --git a/gen/Network/AWS/ImportExport/Types.hs b/gen/Network/AWS/ImportExport/Types.hs
--- a/gen/Network/AWS/ImportExport/Types.hs
+++ b/gen/Network/AWS/ImportExport/Types.hs
@@ -83,18 +83,20 @@
         Export' -> "Export"
         Import' -> "Import"
 
+instance ToByteString JobType
+instance ToHeader     JobType
+instance ToQuery      JobType
+
 instance FromXML JobType where
     parseXML = parseXMLText "JobType"
 
-instance ToQuery JobType where
-    toQuery = toQuery . toText
 
 data Job = Job
     { _jobCreationDate :: RFC822
     , _jobIsCanceled   :: Bool
     , _jobJobId        :: Text
-    , _jobJobType      :: Text
-    } deriving (Eq, Ord, Show)
+    , _jobJobType      :: JobType
+    } deriving (Eq, Show)
 
 -- | 'Job' constructor.
 --
@@ -106,12 +108,12 @@
 --
 -- * 'jobJobId' @::@ 'Text'
 --
--- * 'jobJobType' @::@ 'Text'
+-- * 'jobJobType' @::@ 'JobType'
 --
 job :: Text -- ^ 'jobJobId'
     -> UTCTime -- ^ 'jobCreationDate'
     -> Bool -- ^ 'jobIsCanceled'
-    -> Text -- ^ 'jobJobType'
+    -> JobType -- ^ 'jobJobType'
     -> Job
 job p1 p2 p3 p4 = Job
     { _jobJobId        = p1
@@ -129,7 +131,7 @@
 jobJobId :: Lens' Job Text
 jobJobId = lens _jobJobId (\s a -> s { _jobJobId = a })
 
-jobJobType :: Lens' Job Text
+jobJobType :: Lens' Job JobType
 jobJobType = lens _jobJobType (\s a -> s { _jobJobType = a })
 
 instance FromXML Job where
diff --git a/gen/Network/AWS/ImportExport/UpdateJob.hs b/gen/Network/AWS/ImportExport/UpdateJob.hs
--- a/gen/Network/AWS/ImportExport/UpdateJob.hs
+++ b/gen/Network/AWS/ImportExport/UpdateJob.hs
@@ -55,10 +55,10 @@
 
 data UpdateJob = UpdateJob
     { _ujJobId        :: Text
-    , _ujJobType      :: Text
+    , _ujJobType      :: JobType
     , _ujManifest     :: Text
     , _ujValidateOnly :: Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'UpdateJob' constructor.
 --
@@ -66,7 +66,7 @@
 --
 -- * 'ujJobId' @::@ 'Text'
 --
--- * 'ujJobType' @::@ 'Text'
+-- * 'ujJobType' @::@ 'JobType'
 --
 -- * 'ujManifest' @::@ 'Text'
 --
@@ -74,7 +74,7 @@
 --
 updateJob :: Text -- ^ 'ujJobId'
           -> Text -- ^ 'ujManifest'
-          -> Text -- ^ 'ujJobType'
+          -> JobType -- ^ 'ujJobType'
           -> Bool -- ^ 'ujValidateOnly'
           -> UpdateJob
 updateJob p1 p2 p3 p4 = UpdateJob
@@ -87,7 +87,7 @@
 ujJobId :: Lens' UpdateJob Text
 ujJobId = lens _ujJobId (\s a -> s { _ujJobId = a })
 
-ujJobType :: Lens' UpdateJob Text
+ujJobType :: Lens' UpdateJob JobType
 ujJobType = lens _ujJobType (\s a -> s { _ujJobType = a })
 
 ujManifest :: Lens' UpdateJob Text