1 {-# LANGUAGE OverloadedStrings #-}
    2 module Databrary.Action.Request
    3   ( isDatabraryClient
    4   ) where
    5 
    6 import qualified Network.Wai as Wai
    7 
    8 import Databrary.HTTP.Request
    9 
   10 isDatabraryClient :: Wai.Request -> Bool
   11 isDatabraryClient = any ("DatabraryClient" ==) . lookupRequestHeader "x-requested-with"