Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Minor refactoring. Use more descriptive variable names.

  • Loading branch information...
commit 4a85fea720bf284910afa103126d3e88591f1123 1 parent e74d2f6
@nominolo nominolo authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/Scion/Inspect/DefinitionSite.hs
View
12 src/Scion/Inspect/DefinitionSite.hs
@@ -44,12 +44,12 @@ definedNames srcmod hsgroup =
tys = [ site | ns <- map (tyClDeclNames . unLoc) (hs_tyclds hsgroup)
, site <- map (mkSiteOfLName srcmod) ns ]
- fors = concat $ map forBound (hs_fords hsgroup)
- where forBound lford =
- case unLoc lford of
- ForeignImport n _ _ -> [mkSiteOfLName srcmod n]
- ForeignExport { } -> []
- in vals ++ tys ++ fors
+ foreigns = concat $ map foreignBound (hs_fords hsgroup)
+ where foreignBound lfordecl =
+ case unLoc lfordecl of
+ ForeignImport n _ _ -> [mkSiteOfLName srcmod n]
+ ForeignExport { } -> []
+ in vals ++ tys ++ foreigns
definedNamesHsBind :: (ModuleName, FilePath) -> LHsBind Name -> [DefSite]
definedNamesHsBind srcmod lbind =
Please sign in to comment.
Something went wrong with that request. Please try again.