diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-09 09:49:12 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-09 09:49:12 +0100 |
commit | 8e944915c42b908fd61b34ee2d68aadb534af174 (patch) | |
tree | a8baafe739a000a79d8d1f152314a9baaaa64ef9 /src/Zettel.hs | |
parent | 084022b1da8e0f0e8c9efb814f32c11903f56969 (diff) | |
download | zk-visual-8e944915c42b908fd61b34ee2d68aadb534af174.tar.gz zk-visual-8e944915c42b908fd61b34ee2d68aadb534af174.zip |
Format code using ormolu
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 |