{-# LANGUAGE OverloadedStrings #-}
module Action.Request
  ( isDatabraryClient
  ) where

import qualified Network.Wai as Wai

import HTTP.Request

isDatabraryClient :: Wai.Request -> Bool
isDatabraryClient = any ("DatabraryClient" ==) . lookupRequestHeader "x-requested-with"