diff options
| author | David Waern <david.waern@gmail.com> | 2010-05-18 21:15:38 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-05-18 21:15:38 +0000 |
| commit | 0bb42506df5701f4851605169bc159a5f09197e2 (patch) | |
| tree | 8ff412aa50ae15a4a7023c829dd79271601c9704 /src/Haddock/Utils.hs | |
| parent | 32fdb2bf9b2a759d811260d36d4e897e14e1417c (diff) | |
HLint police
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
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 |