Remove trailing tabs

Fix linter error
commercialhaskell · Feb 17, 2020 · fe09ef1 · fe09ef1
1 parent dadb5ec
commit fe09ef1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/unix/System/Terminal.hsc b/src/unix/System/Terminal.hsc
@@ -28,12 +28,12 @@ foreign import ccall "sys/ioctl.h ioctl"
 
 getTerminalWidth :: IO (Maybe Int)
 getTerminalWidth =
-    alloca $ \p -> do	
-        errno <- ioctl (#const STDOUT_FILENO) (#const TIOCGWINSZ) p	
-        if errno < 0	
-        then return Nothing	
-        else do	
-            WindowWidth w <- peek p	
+    alloca $ \p -> do
+        errno <- ioctl (#const STDOUT_FILENO) (#const TIOCGWINSZ) p
+        if errno < 0
+        then return Nothing
+        else do
+            WindowWidth w <- peek p
             return . Just . fromIntegral $ w
 
 fixCodePage :: x -> y -> a -> a

diff --git a/src/windows/System/Terminal.hs b/src/windows/System/Terminal.hs
@@ -67,7 +67,7 @@ getTerminalWidth = do
                 [left,_top,right,_bottom] <- forM [0..3] $ \i -> do
                     v <- peekByteOff p ((i*2) + posCONSOLE_SCREEN_BUFFER_INFO_srWindow)
                     return $ fromIntegral (v :: Word16)
-                return $ Just $ (1+right-left)
+                return $ Just (1+right-left)
 
 -- | Set the code page for this process as necessary. Only applies to Windows.
 -- See: https://github.com/commercialhaskell/stack/issues/738