Mesabloo/diagnose
1
1
Fork 0
mirror of https://github.com/Mesabloo/diagnose.git synced 2024-11-25 06:16:42 +03:00
Code Issues Projects Releases Wiki Activity

Add instances for Error.Diagnose.Style

Browse Source
This commit is contained in:
Sophie Taylor 2023-01-16 16:17:08 +10:00 committed by Ellie Hermaszewska
parent 451d9838cf
commit 6db4f61596
No known key found for this signature in database
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Error/Diagnose/Style.hs
View File

@ -1,5 +1,5 @@
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Error.Diagnose.Style
-- Description : Custom style definitions
@ -19,6 +19,7 @@ module Error.Diagnose.Style
)
where
import GHC.Generics
import Prettyprinter.Render.Terminal (AnsiStyle, Color (..), bold, color, colorDull)
-- $defining_new_styles
@ -71,7 +72,7 @@ data Annotation a
CodeStyle
| -- | Something else, could be provided by the user
OtherStyle a
deriving (Functor, Foldable, Traversable)
deriving (Eq, Ord, Show, Generic, Functor, Foldable, Traversable)
-- | A style is a function which can be applied using 'reAnnotate'.
--