1 files changed, 2 insertions, 2 deletions

diff --git a/src/LambdaCube/Compiler/DesugaredSource.hs b/src/LambdaCube/Compiler/DesugaredSource.hs
index 510b3de2..dcf1dfbf 100644
--- a/src/LambdaCube/Compiler/DesugaredSource.hs
+++ b/src/LambdaCube/Compiler/DesugaredSource.hs
@@ -319,7 +319,7 @@ data Lit
     | LChar   Char
     | LFloat  Double
     | LString String
-  deriving (Eq, Generic)
+  deriving (Eq, Generic, Show)
 
 instance Binary Lit
 
@@ -366,7 +366,7 @@ instance PShow Binder where
         BMeta -> "BMeta"
 
 data Visibility = Hidden | Visible
-  deriving (Eq, Generic)
+  deriving (Eq, Generic, Show)
 
 instance Binary Visibility