Prefix unused type variables with an underscore.

b4f47611 · msosn · d829642b · b4f47611
Commit b4f47611 authored Dec 07, 2015 by msosn
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/Compiler/Hoopl/Block.hs src/Compiler/Hoopl/Block.hs +2 -2

No files found.
--- a/src/Compiler/Hoopl/Block.hs
+++ b/src/Compiler/Hoopl/Block.hs
@@ -58,8 +58,8 @@ data C

 -- | Either type indexed by closed/open using type families
 type family IndexedCO ex a b :: *
-type instance IndexedCO C a b = a
-type instance IndexedCO O a b = b
+type instance IndexedCO C a _b = a
+type instance IndexedCO O _a b = b

 -- | Maybe type indexed by open/closed
 data MaybeO ex t where