Add IndexMappable inst: HuddleStage->PrettyStage

Author: aniketd

CHANGELOG.md

@@ -2,7 +2,9 @@
 
 ## 1.1.0.0
 
-* Implement `IndexMappable` instance for `HuddleStage` to `CTreePhase`
+* Implement `IndexMappable` instance for
+  - `HuddleStage` to `CTreePhase`
+  - `HuddleStage` to `PrettyStage`
 * Change the order of fields in `GroupEntry`; the extension field is now the last field
 * Add `IndexMappable` to help with traversing `CDDL` trees
 * Add an index type parameter to all `CDDL` terms

src/Codec/CBOR/Cuddle/IndexMappable.hs

@@ -228,6 +228,20 @@ instance IndexMappable XXType2 HuddleStage CTreePhase where
 instance IndexMappable XTerm HuddleStage CTreePhase where
   mapIndex (HuddleXTerm c) = CTreeXTerm c
 
+-- HuddleStage -> PrettyStage
+
+instance IndexMappable XCddl HuddleStage PrettyStage where
+  mapIndex (HuddleXCddl c) = PrettyXCddl c
+
+instance IndexMappable XXTopLevel HuddleStage PrettyStage where
+  mapIndex (HuddleXXTopLevel c) = PrettyXXTopLevel c
+
+instance IndexMappable XXType2 HuddleStage PrettyStage where
+  mapIndex (HuddleXXType2 c) = absurd c
+
+instance IndexMappable XTerm HuddleStage PrettyStage where
+  mapIndex (HuddleXTerm c) = PrettyXTerm c
+
 -- ParserStage -> ParserStage
 
 instance IndexMappable XCddl ParserStage ParserStage