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