Method.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Matcha.Method where

import Network.HTTP.Types (Method)

pattern GET :: Method
pattern GET = "GET"

pattern POST :: Method
pattern POST = "POST"