diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index 71402f7f7..a030faf4e 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -263,3 +263,6 @@ instance Show2 MyersF where
     where showsQuaternaryWith :: (Int -> a -> ShowS) -> (Int -> b -> ShowS) -> (Int -> c -> ShowS) -> (Int -> d -> ShowS) -> String -> Int -> a -> b -> c -> d -> ShowS
           showsQuaternaryWith sp1 sp2 sp3 sp4 name d x y z w = showParen (d > 10) $
             showString name . showChar ' ' . sp1 11 x . showChar ' ' . sp2 11 y . showChar ' ' . sp3 11 z . showChar ' ' . sp4 11 w
+
+instance Show a => Show1 (MyersF a) where
+  liftShowsPrec = liftShowsPrec2 showsPrec showList