@@ -36,7 +36,7 @@ import Data.Map qualified as M
36
36
import Data.String (IsString (.. ))
37
37
import Data.Text (Text )
38
38
import Data.Text qualified as T
39
- import Data.Typeable (Typeable , cast )
39
+ import Data.Typeable (cast )
40
40
import Data.Void
41
41
import GHC.Generics
42
42
import Language.Haskell.TH.Syntax qualified as TH
@@ -57,7 +57,7 @@ data Template = Template
57
57
-- “focus” can be switched easily by modifying 'templateActual'.
58
58
templateCache :: Map PName [Node ]
59
59
}
60
- deriving (Eq , Ord , Show , Data , Typeable , Generic )
60
+ deriving (Eq , Ord , Show , Data , Generic )
61
61
62
62
instance Semigroup Template where
63
63
(Template pname x) <> (Template _ y) = Template pname (M. union x y)
@@ -81,7 +81,7 @@ data Node
81
81
InvertedSection Key [Node ]
82
82
| -- | Partial with indentation level ('Nothing' means it was inlined)
83
83
Partial PName (Maybe Pos )
84
- deriving (Eq , Ord , Show , Data , Typeable , Generic )
84
+ deriving (Eq , Ord , Show , Data , Generic )
85
85
86
86
-- | @since 2.1.0
87
87
instance TH. Lift Node where
@@ -96,7 +96,7 @@ instance TH.Lift Node where
96
96
-- * @[text]@—single key is a normal identifier;
97
97
-- * @[text1, text2]@—multiple keys represent dotted names.
98
98
newtype Key = Key { unKey :: [Text ]}
99
- deriving (Eq , Ord , Show , Semigroup , Monoid , Data , Typeable , Generic )
99
+ deriving (Eq , Ord , Show , Semigroup , Monoid , Data , Generic )
100
100
101
101
instance NFData Key
102
102
@@ -116,7 +116,7 @@ showKey (Key xs) = T.intercalate "." xs
116
116
-- | Identifier for partials. Note that with the @OverloadedStrings@
117
117
-- extension you can use just string literals to create values of this type.
118
118
newtype PName = PName { unPName :: Text }
119
- deriving (Eq , Ord , Show , Data , Typeable , Generic )
119
+ deriving (Eq , Ord , Show , Data , Generic )
120
120
121
121
instance IsString PName where
122
122
fromString = PName . T. pack
@@ -137,7 +137,7 @@ newtype MustacheException
137
137
--
138
138
-- /The 'Text' field was added in version 1.0.0./
139
139
MustacheParserException (ParseErrorBundle Text Void )
140
- deriving (Eq , Show , Typeable , Generic )
140
+ deriving (Eq , Show , Generic )
141
141
142
142
instance Exception MustacheException where
143
143
displayException (MustacheParserException b) = errorBundlePretty b
@@ -152,7 +152,7 @@ data MustacheWarning
152
152
| -- | A complex value such as an 'Object' or 'Array' was directly
153
153
-- rendered into the template.
154
154
MustacheDirectlyRenderedValue Key
155
- deriving (Eq , Show , Typeable , Generic )
155
+ deriving (Eq , Show , Generic )
156
156
157
157
-- | Pretty-print a 'MustacheWarning'.
158
158
--
0 commit comments