Add IndexMappable instance: HuddleStage->CTreePhase

Author: aniketd

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 ## 1.1.0.0
 
+* Implement `IndexMappable` instance for `HuddleStage` to `CTreePhase`
 * 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

@@ -214,6 +214,20 @@ instance IndexMappable XXType2 ParserStage HuddleStage where
 instance IndexMappable XTerm ParserStage HuddleStage where
   mapIndex (ParserXTerm c) = HuddleXTerm c
 
+-- HuddleStage -> CTreePhase
+
+instance IndexMappable XCddl HuddleStage CTreePhase where
+  mapIndex (HuddleXCddl c) = CTreeXCddl c
+
+instance IndexMappable XXTopLevel HuddleStage CTreePhase where
+  mapIndex (HuddleXXTopLevel c) = CTreeXXTopLevel c
+
+instance IndexMappable XXType2 HuddleStage CTreePhase where
+  mapIndex (HuddleXXType2 c) = CTreeXXType2 c
+
+instance IndexMappable XTerm HuddleStage CTreePhase where
+  mapIndex (HuddleXTerm c) = CTreeXTerm c
+
 -- ParserStage -> ParserStage
 
 instance IndexMappable XCddl ParserStage ParserStage