haskell/licensor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Apply HLint suggestions

Browse Source
This commit is contained in:
Juan Pedro Villa Isaza 2020-02-15 08:12:21 -05:00
parent 2f3f9a72ec
commit 265fa6e773
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Licensor.hs
View File

@ -1,5 +1,4 @@
{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
@ -116,7 +115,7 @@ getDependencies = do
return Nothing return Nothing
Right deps -> Right deps ->
return $ fmap Set.fromList $ sequence $ fmap simpleParse (lines deps) return $ Set.fromList <$> traverse simpleParse (lines deps)
getLicenses :: IO (Maybe [(PackageName, License)]) getLicenses :: IO (Maybe [(PackageName, License)])
@ -129,7 +128,7 @@ getLicenses = do
return Nothing return Nothing
Right deps -> Right deps ->
return $ sequence $ fmap toNameLicense (lines deps) return $ traverse toNameLicense (lines deps)
where where
toNameLicense dep = toNameLicense dep =
case words dep of case words dep of