Fix AltShow Maybe instance

haskell · Jan 24, 2024 · 0530486 · 0530486
1 parent 67a45a4
commit 0530486
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/filepath-equivalent-tests/TestEquiv.hs b/tests/filepath-equivalent-tests/TestEquiv.hs
@@ -37,6 +37,10 @@ instance {-# OVERLAPPABLE #-} Show a => AltShow a where
 instance {-# OVERLAPS #-} AltShow String where
   altShow = id
 
+instance {-# OVERLAPPABLE #-} AltShow a => AltShow (Maybe a) where
+  altShow Nothing = ""
+  altShow (Just a) = altShow a
+
 
 newtype WindowsFilePaths = WindowsFilePaths { unWindowsFilePaths :: [WindowsFilePath] }
   deriving (Show, Eq, Ord, Generic)