1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 800
{-# LANGUAGE TemplateHaskellQuotes #-}
#else
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
#endif
module Text.RE.ZeInternals.SearchReplace.TDFA
( ed
, edMS
, edMI
, edBS
, edBI
, edMultilineSensitive
, edMultilineInsensitive
, edBlockSensitive
, edBlockInsensitive
, ed_
) where
import Language.Haskell.TH
import Language.Haskell.TH.Quote
import Prelude.Compat
import Text.RE.REOptions
import Text.RE.ZeInternals.SearchReplace.TDFAEdPrime
-- | the @[ed| ... /// ... |]@ quasi quoters
ed
, edMS
, edMI
, edBS
, edBI
, edMultilineSensitive
, edMultilineInsensitive
, edBlockSensitive
, edBlockInsensitive
, ed_ :: QuasiQuoter
ed = ed' cast $ Just minBound
edMS = edMultilineSensitive
edMI = edMultilineInsensitive
edBS = edBlockSensitive
edBI = edBlockInsensitive
edMultilineSensitive = ed' cast $ Just MultilineSensitive
edMultilineInsensitive = ed' cast $ Just MultilineInsensitive
edBlockSensitive = ed' cast $ Just BlockSensitive
edBlockInsensitive = ed' cast $ Just BlockInsensitive
ed_ = ed' cast Nothing
cast :: Q Exp
cast = [|id|]
|
