diff --git a/amazonka-cognito-sync.cabal b/amazonka-cognito-sync.cabal
--- a/amazonka-cognito-sync.cabal
+++ b/amazonka-cognito-sync.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cognito-sync
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Cognito Sync SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -58,5 +58,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/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
--- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs
+++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
@@ -51,9 +51,9 @@
 data RegisterDevice = RegisterDevice
     { _rdIdentityId     :: Text
     , _rdIdentityPoolId :: Text
-    , _rdPlatform       :: Text
+    , _rdPlatform       :: Platform
     , _rdToken          :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'RegisterDevice' constructor.
 --
@@ -63,13 +63,13 @@
 --
 -- * 'rdIdentityPoolId' @::@ 'Text'
 --
--- * 'rdPlatform' @::@ 'Text'
+-- * 'rdPlatform' @::@ 'Platform'
 --
 -- * 'rdToken' @::@ 'Text'
 --
 registerDevice :: Text -- ^ 'rdIdentityPoolId'
                -> Text -- ^ 'rdIdentityId'
-               -> Text -- ^ 'rdPlatform'
+               -> Platform -- ^ 'rdPlatform'
                -> Text -- ^ 'rdToken'
                -> RegisterDevice
 registerDevice p1 p2 p3 p4 = RegisterDevice
@@ -90,7 +90,7 @@
 rdIdentityPoolId = lens _rdIdentityPoolId (\s a -> s { _rdIdentityPoolId = a })
 
 -- | The SNS platform type (e.g. GCM, SDM, APNS, APNS_SANDBOX).
-rdPlatform :: Lens' RegisterDevice Text
+rdPlatform :: Lens' RegisterDevice Platform
 rdPlatform = lens _rdPlatform (\s a -> s { _rdPlatform = a })
 
 -- | The push token.
diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs
--- a/gen/Network/AWS/CognitoSync/Types.hs
+++ b/gen/Network/AWS/CognitoSync/Types.hs
@@ -25,7 +25,7 @@
     -- * Service
       CognitoSync
     -- ** Error
-    , RESTError
+    , JSONError
 
     -- * IdentityPoolUsage
     , IdentityPoolUsage
@@ -98,7 +98,7 @@
 
 instance AWSService CognitoSync where
     type Sg CognitoSync = V4
-    type Er CognitoSync = RESTError
+    type Er CognitoSync = JSONError
 
     service = Service
         { _svcEndpoint     = regional
@@ -109,7 +109,7 @@
         , _svcJSONVersion  = Just "1.1"
         }
 
-    handle = restError statusSuccess
+    handle = jsonError statusSuccess
 
 data IdentityPoolUsage = IdentityPoolUsage
     { _ipuDataStorage       :: Maybe Integer
@@ -197,6 +197,10 @@
         ApnsSandbox -> "APNS_SANDBOX"
         Gcm         -> "GCM"
 
+instance ToByteString Platform
+instance ToHeader     Platform
+instance ToQuery      Platform
+
 instance FromJSON Platform where
     parseJSON = parseJSONText "Platform"
 
@@ -312,6 +316,10 @@
         Remove  -> "remove"
         Replace -> "replace"
 
+instance ToByteString Operation
+instance ToHeader     Operation
+instance ToQuery      Operation
+
 instance FromJSON Operation where
     parseJSON = parseJSONText "Operation"
 
@@ -477,10 +485,10 @@
 data RecordPatch = RecordPatch
     { _rpDeviceLastModifiedDate :: Maybe RFC822
     , _rpKey                    :: Text
-    , _rpOp                     :: Text
+    , _rpOp                     :: Operation
     , _rpSyncCount              :: Integer
     , _rpValue                  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'RecordPatch' constructor.
 --
@@ -490,13 +498,13 @@
 --
 -- * 'rpKey' @::@ 'Text'
 --
--- * 'rpOp' @::@ 'Text'
+-- * 'rpOp' @::@ 'Operation'
 --
 -- * 'rpSyncCount' @::@ 'Integer'
 --
 -- * 'rpValue' @::@ 'Maybe' 'Text'
 --
-recordPatch :: Text -- ^ 'rpOp'
+recordPatch :: Operation -- ^ 'rpOp'
             -> Text -- ^ 'rpKey'
             -> Integer -- ^ 'rpSyncCount'
             -> RecordPatch
@@ -520,7 +528,7 @@
 rpKey = lens _rpKey (\s a -> s { _rpKey = a })
 
 -- | An operation, either replace or remove.
-rpOp :: Lens' RecordPatch Text
+rpOp :: Lens' RecordPatch Operation
 rpOp = lens _rpOp (\s a -> s { _rpOp = a })
 
 -- | Last known server sync count for this record. Set to 0 if unknown.