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