aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-18 21:15:38 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-18 21:15:38 +0000
commit0bb42506df5701f4851605169bc159a5f09197e2 (patch)
tree8ff412aa50ae15a4a7023c829dd79271601c9704 /src
parent32fdb2bf9b2a759d811260d36d4e897e14e1417c (diff)
HLint police
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Utils.hs4
1 files changed, 2 insertions, 2 deletions
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