From 0bb42506df5701f4851605169bc159a5f09197e2 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 18 May 2010 21:15:38 +0000
Subject: HLint police

---
 src/Haddock/Utils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs
index b9795376..463e01ad 100644
--- a/src/Haddock/Utils.hs
+++ b/src/Haddock/Utils.hs
@@ -118,7 +118,7 @@ toInstalledDescription = hmi_description . instInfo
 -- Making abstract declarations
 
 
-restrictTo :: [Name] -> (LHsDecl Name) -> (LHsDecl Name)
+restrictTo :: [Name] -> LHsDecl Name -> LHsDecl Name
 restrictTo names (L loc decl) = L loc $ case decl of
   TyClD d | isDataDecl d && tcdND d == DataType -> 
     TyClD (d { tcdCons = restrictCons names (tcdCons d) }) 
@@ -386,6 +386,6 @@ idMarkup = Markup {
 foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows
 #else
 getProcessID :: IO Int
-getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral
+getProcessID = fmap fromIntegral System.Posix.Internals.c_getpid
 #endif
 
-- 
cgit v1.2.3