{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 800
{-# LANGUAGE TemplateHaskellQuotes #-}
#else
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
#endif
module Text.RE.ZeInternals.SearchReplace.TDFA.Text
( ed
, edMultilineSensitive
, edMultilineInsensitive
, edBlockSensitive
, edBlockInsensitive
, edMS
, edMI
, edBS
, edBI
, ed_
) where
import qualified Data.Text as T
import Language.Haskell.TH
import Language.Haskell.TH.Quote
import Text.RE.REOptions
import Text.RE.Tools.IsRegex
import Text.RE.ZeInternals.SearchReplace.TDFAEdPrime
import Text.RE.ZeInternals.TDFA
ed :: QuasiQuoter
ed :: QuasiQuoter
ed = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
sr_cast (Maybe SimpleREOptions -> QuasiQuoter)
-> Maybe SimpleREOptions -> QuasiQuoter
forall a b. (a -> b) -> a -> b
$ SimpleREOptions -> Maybe SimpleREOptions
forall a. a -> Maybe a
Just SimpleREOptions
forall a. Bounded a => a
minBound
edMultilineSensitive :: QuasiQuoter
edMultilineSensitive :: QuasiQuoter
edMultilineSensitive = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
sr_cast (Maybe SimpleREOptions -> QuasiQuoter)
-> Maybe SimpleREOptions -> QuasiQuoter
forall a b. (a -> b) -> a -> b
$ SimpleREOptions -> Maybe SimpleREOptions
forall a. a -> Maybe a
Just SimpleREOptions
MultilineSensitive
edMultilineInsensitive :: QuasiQuoter
edMultilineInsensitive :: QuasiQuoter
edMultilineInsensitive = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
sr_cast (Maybe SimpleREOptions -> QuasiQuoter)
-> Maybe SimpleREOptions -> QuasiQuoter
forall a b. (a -> b) -> a -> b
$ SimpleREOptions -> Maybe SimpleREOptions
forall a. a -> Maybe a
Just SimpleREOptions
MultilineInsensitive
edBlockSensitive :: QuasiQuoter
edBlockSensitive :: QuasiQuoter
edBlockSensitive = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
sr_cast (Maybe SimpleREOptions -> QuasiQuoter)
-> Maybe SimpleREOptions -> QuasiQuoter
forall a b. (a -> b) -> a -> b
$ SimpleREOptions -> Maybe SimpleREOptions
forall a. a -> Maybe a
Just SimpleREOptions
BlockSensitive
edBlockInsensitive :: QuasiQuoter
edBlockInsensitive :: QuasiQuoter
edBlockInsensitive = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
sr_cast (Maybe SimpleREOptions -> QuasiQuoter)
-> Maybe SimpleREOptions -> QuasiQuoter
forall a b. (a -> b) -> a -> b
$ SimpleREOptions -> Maybe SimpleREOptions
forall a. a -> Maybe a
Just SimpleREOptions
BlockInsensitive
edMS :: QuasiQuoter
edMS :: QuasiQuoter
edMS = QuasiQuoter
edMultilineSensitive
edMI :: QuasiQuoter
edMI :: QuasiQuoter
edMI = QuasiQuoter
edMultilineInsensitive
edBS :: QuasiQuoter
edBS :: QuasiQuoter
edBS = QuasiQuoter
edBlockSensitive
edBI :: QuasiQuoter
edBI :: QuasiQuoter
edBI = QuasiQuoter
edBlockInsensitive
ed_ :: QuasiQuoter
ed_ :: QuasiQuoter
ed_ = Q Exp -> Maybe SimpleREOptions -> QuasiQuoter
ed' Q Exp
fn_cast Maybe SimpleREOptions
forall a. Maybe a
Nothing
sr_cast :: Q Exp
sr_cast :: Q Exp
sr_cast = [|\x -> x :: SearchReplace RE T.Text|]
fn_cast :: Q Exp
fn_cast :: Q Exp
fn_cast = [|\f x -> f x :: SearchReplace RE T.Text|]