diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-11 14:21:43 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-11 14:21:43 -0600 |
| commit | 5092619a63058d6b4a895ecdaef31fec7a8da4cc (patch) | |
| tree | be3aa6d91002b50d8e049e5fdb0182b16d4766ad /src/Language/Fiddle/GenericTree.hs | |
| parent | 9af1d30c8cd6aef509736e1ecb6e77b47338b98d (diff) | |
| download | fiddle-5092619a63058d6b4a895ecdaef31fec7a8da4cc.tar.gz fiddle-5092619a63058d6b4a895ecdaef31fec7a8da4cc.tar.bz2 fiddle-5092619a63058d6b4a895ecdaef31fec7a8da4cc.zip | |
Replace all the qualification metadata with 'When (s .>= Qualified)'
This makes deriving much easier and cleans up the messy contexts in
GenericTree and elsewhere at the cost of slightly more obtuse syntax.
Diffstat (limited to 'src/Language/Fiddle/GenericTree.hs')
| -rw-r--r-- | src/Language/Fiddle/GenericTree.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/Language/Fiddle/GenericTree.hs b/src/Language/Fiddle/GenericTree.hs index 694b3ab..9b04ac7 100644 --- a/src/Language/Fiddle/GenericTree.hs +++ b/src/Language/Fiddle/GenericTree.hs @@ -31,14 +31,7 @@ type Context stage = ( Show (NumberType stage), Typeable stage, ToJSON (NumberType stage), - ToJSON (RegisterOffset stage), - ToJSON (FiddleUnitInterface stage), - ToJSON (QualificationMetadata stage ()), - ToJSON (QualificationMetadata stage ExportedPackageDecl), - ToJSON (QualificationMetadata stage ExportedLocationDecl), - ToJSON (QualificationMetadata stage ExportedBitsDecl), - ToJSON (QualificationMetadata stage ExportedTypeDecl), - ToJSON (QualificationMetadata stage ExportedObjectDecl) + ToJSON (RegisterOffset stage) ) class FunctorShow f where |