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"