Mouse: minor layout nit
commitac1374d400452c8db8beefaa3a6e6b5497a956f7
authorJonathan Daugherty <cygnus@foobox.com>
dateFri 17 Jun 2016, 17:44 (10 years ago)
parentaa67b6f
src/Graphics/Vty/Input/Mouse.hs+1−3
@@ -125,9 +125,7 @@ readInt :: Parser Int
125125readInt = do
126126 s <- get
127127 case (reads :: ReadS Int) s of
128− [(i, rest)] -> do
129− put rest
130− return i
128+ [(i, rest)] -> put rest >> return i
131129 _ -> failParse
132130
133131readChar :: Parser Char