aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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