headers.hs

gistfile1.txt

xxx :: Snap ()
xxx = do
   req <- getRequest
   let a = getHeader "user-agent" req
   told <- maybe pass return a
   let b = C.pack "Mobile|iP(hone|od|ad)|Android|BlackBerry|IEMobile|Kindle|NetFront|Silk-Accelerated|(hpw|web)OS|Fennec|Minimo|Opera M(obi|ini)|Blazer|Dolfin|Dolphin|Skyfire|Zune"
   let ii = told =~ b :: Bool
   case ii of
       True -> writeBS "adevarat"
       False -> writeBS "fals"
   writeBS told