From 836ed1894381d872da66faa32beb8d57f8f08090 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 18 Mar 2021 00:41:21 -0400 Subject: [PATCH] ADD show --- app/current-output.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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