import Data.Convertible.Instances.Text ()
import Data.Convertible.Utils
import Data.Default
+import Data.Eq.Indirect
import Data.List (intersperse, sort)
import Data.Maybe
import Data.Monoid
-- 'isRedirection' or it raises an error.
redirect ∷ StatusCode sc ⇒ sc → URI → Rsrc ()
redirect sc uri
- = do when (sc â\89\88 NotModified ∨ (¬) (isRedirection sc))
+ = do when (sc â\89¡: NotModified ∨ (¬) (isRedirection sc))
$ abort
$ mkAbortion' InternalServerError
$ cs