diff --git a/app/current-output.hs b/app/current-output.hs
index 13c9b26..6272f3e 100644
--- a/app/current-output.hs
+++ b/app/current-output.hs
@@ -35,7 +35,7 @@ main :: IO ()
 main = getMonitorName >>= maybe exitFailure (\n -> putStrLn n >> exitSuccess)
 
 data Coord = Coord Int Int
-    deriving Eq
+    deriving (Eq, Show)
 
 getMonitorName :: IO (Maybe String)
 getMonitorName = do