GetModelTemplate.hs

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric      #-}
{-# LANGUAGE OverloadedStrings  #-}
{-# LANGUAGE RecordWildCards    #-}
{-# LANGUAGE TypeFamilies       #-}

{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds   #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.APIGateway.GetModelTemplate
-- Copyright   : (c) 2013-2015 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Generates a sample mapping template that can be used to transform a
-- payload into the structure of a model.
--
-- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetModelTemplate.html AWS API Reference> for GetModelTemplate.
module Network.AWS.APIGateway.GetModelTemplate
    (
    -- * Creating a Request
      getModelTemplate
    , GetModelTemplate
    -- * Request Lenses
    , gmtRestAPIId
    , gmtModelName

    -- * Destructuring the Response
    , getModelTemplateResponse
    , GetModelTemplateResponse
    -- * Response Lenses
    , gmtrsValue
    , gmtrsResponseStatus
    ) where

import           Network.AWS.APIGateway.Types
import           Network.AWS.APIGateway.Types.Product
import           Network.AWS.Prelude
import           Network.AWS.Request
import           Network.AWS.Response

-- | Request to generate a sample mapping template used to transform the
-- payload.
--
-- /See:/ 'getModelTemplate' smart constructor.
data GetModelTemplate = GetModelTemplate'
    { _gmtRestAPIId :: !Text
    , _gmtModelName :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'GetModelTemplate' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'gmtRestAPIId'
--
-- * 'gmtModelName'
getModelTemplate
    :: Text -- ^ 'gmtRestAPIId'
    -> Text -- ^ 'gmtModelName'
    -> GetModelTemplate
getModelTemplate pRestAPIId_ pModelName_ =
    GetModelTemplate'
    { _gmtRestAPIId = pRestAPIId_
    , _gmtModelName = pModelName_
    }

-- | The ID of the RestApi under which the model exists.
gmtRestAPIId :: Lens' GetModelTemplate Text
gmtRestAPIId = lens _gmtRestAPIId (\ s a -> s{_gmtRestAPIId = a});

-- | The name of the model for which to generate a template.
gmtModelName :: Lens' GetModelTemplate Text
gmtModelName = lens _gmtModelName (\ s a -> s{_gmtModelName = a});

instance AWSRequest GetModelTemplate where
        type Rs GetModelTemplate = GetModelTemplateResponse
        request = get aPIGateway
        response
          = receiveJSON
              (\ s h x ->
                 GetModelTemplateResponse' <$>
                   (x .?> "value") <*> (pure (fromEnum s)))

instance ToHeaders GetModelTemplate where
        toHeaders = const mempty

instance ToPath GetModelTemplate where
        toPath GetModelTemplate'{..}
          = mconcat
              ["/restapis/", toBS _gmtRestAPIId, "/models/",
               toBS _gmtModelName, "/default_template"]

instance ToQuery GetModelTemplate where
        toQuery = const mempty

-- | Represents a mapping template used to transform a payload.
--
-- /See:/ 'getModelTemplateResponse' smart constructor.
data GetModelTemplateResponse = GetModelTemplateResponse'
    { _gmtrsValue          :: !(Maybe Text)
    , _gmtrsResponseStatus :: !Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'GetModelTemplateResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'gmtrsValue'
--
-- * 'gmtrsResponseStatus'
getModelTemplateResponse
    :: Int -- ^ 'gmtrsResponseStatus'
    -> GetModelTemplateResponse
getModelTemplateResponse pResponseStatus_ =
    GetModelTemplateResponse'
    { _gmtrsValue = Nothing
    , _gmtrsResponseStatus = pResponseStatus_
    }

-- | The Apache
-- <http://velocity.apache.org/engine/devel/vtl-reference-guide.html Velocity Template Language (VTL)>
-- template content used for the template resource.
gmtrsValue :: Lens' GetModelTemplateResponse (Maybe Text)
gmtrsValue = lens _gmtrsValue (\ s a -> s{_gmtrsValue = a});

-- | The response status code.
gmtrsResponseStatus :: Lens' GetModelTemplateResponse Int
gmtrsResponseStatus = lens _gmtrsResponseStatus (\ s a -> s{_gmtrsResponseStatus = a});