From 265fa6e773119caf1b8bdd9af57b65c4197cd614 Mon Sep 17 00:00:00 2001
From: Juan Pedro Villa Isaza <584947+jpvillaisaza@users.noreply.github.com>
Date: Sat, 15 Feb 2020 08:12:21 -0500
Subject: [PATCH] Apply HLint suggestions

---
 src/Licensor.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Licensor.hs b/src/Licensor.hs
index 53db1e5..be1213c 100644
--- a/src/Licensor.hs
+++ b/src/Licensor.hs
@@ -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