@@ -1,7 +1,6 @@
11{-# OPTIONS_GHC -Wall #-}
22module Cors
33 ( allow
4− , open
54 )
65 where
76
@@ -9,7 +8,7 @@ module Cors
98import qualified Data.HashSet as HashSet
109import Network.URI (parseURI)
1110import Snap.Core (Snap, Method, method)
12−import Snap.Util.CORS (CORSOptions(..), HashableMethod(..), OriginList(..), applyCORS, mkOriginSet)
11+import Snap.Util.CORS (CORSOptions(..), HashableMethod(..), OriginList(Origins), applyCORS, mkOriginSet)
1312
1413
1514
@@ -18,15 +17,7 @@ import Snap.Util.CORS (CORSOptions(..), HashableMethod(..), OriginList(..), appl
1817
1918allow :: Method -> [String] -> Snap () -> Snap ()
2019allow method_ origins snap =
21− applyCORS (toOptions method_ (toOriginList origins)) $
22− method method_ $
23− snap
24−
25−
26−open :: Method -> Snap () -> Snap ()
27−open method_ snap =
28− applyCORS (toOptions method_ Everywhere) $
29− method method_ $
20+ applyCORS (toOptions method_ origins) $ method method_ $
3021 snap
3122
3223
@@ -34,9 +25,10 @@ open method_ snap =
3425-- TO OPTIONS
3526
3627
37−toOptions :: (Monad m) => Method -> OriginList -> CORSOptions m
38−toOptions method_ allowedOrigins =
28+toOptions :: (Monad m) => Method -> [String] -> CORSOptions m
29+toOptions method_ origins =
3930 let
31+ allowedOrigins = toOriginList origins
4032 allowedMethods = HashSet.singleton (HashableMethod method_)
4133 in
4234 CORSOptions