We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7c9d723 commit 789d0acCopy full SHA for 789d0ac
src/Data/Builder/Catenable.hs
@@ -1,5 +1,8 @@
1
{-# LANGUAGE BangPatterns #-}
2
+{-# LANGUAGE DeriveFunctor #-}
3
+{-# LANGUAGE DerivingStrategies #-}
4
{-# LANGUAGE PatternSynonyms #-}
5
+{-# LANGUAGE StandaloneDeriving #-}
6
{-# LANGUAGE TypeFamilies #-}
7
8
{- | Builder with cheap concatenation. Like the builder type from
@@ -63,6 +66,8 @@ data Builder a
63
66
| Snoc !(Builder a) a
64
67
| Append !(Builder a) !(Builder a)
65
68
69
+deriving stock instance Functor Builder
70
+
71
instance Monoid (Builder a) where
72
{-# INLINE mempty #-}
73
mempty = Empty
0 commit comments