ndwarshuis
/
rofi-extras
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD show

This commit is contained in:
Nathan Dwarshuis 2021-03-18 00:41:21 -04:00
parent 0b528a6814
commit 836ed18943
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/current-output.hs
View File

@ -35,7 +35,7 @@ main :: IO ()
main = getMonitorName >>= maybe exitFailure (\n -> putStrLn n >> exitSuccess) main = getMonitorName >>= maybe exitFailure (\n -> putStrLn n >> exitSuccess)
data Coord = Coord Int Int data Coord = Coord Int Int
deriving Eq deriving (Eq, Show)
getMonitorName :: IO (Maybe String) getMonitorName :: IO (Maybe String)
getMonitorName = do getMonitorName = do