diff options
Diffstat (limited to 'src/Zettel.hs')
-rw-r--r-- | src/Zettel.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Zettel.hs b/src/Zettel.hs index d754741..99c2dd3 100644 --- a/src/Zettel.hs +++ b/src/Zettel.hs @@ -1,6 +1,6 @@ -{-# Language GeneralizedNewtypeDeriving #-} -{-# Language DerivingVia #-} -{-# Language StandaloneDeriving #-} +{-# LANGUAGE DerivingVia #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE StandaloneDeriving #-} module Zettel where @@ -12,11 +12,12 @@ class Combine a where newtype UseCombine a = UC a -instance Monoid a => Combine (UseCombine a) where +instance (Monoid a) => Combine (UseCombine a) where cappend (UC a) (UC b) = UC $ a <> b cempty = UC mempty deriving via (UseCombine Text) instance Combine Text + deriving via (UseCombine Pandoc) instance Combine Pandoc newtype ZettelId = ZettelId |