From 439c7f6fcc7b8407e52239c072bb88841970e053 Mon Sep 17 00:00:00 2001
From: Justin Woo <moomoowoo@gmail.com>
Date: Wed, 23 May 2018 10:04:39 +0300
Subject: [PATCH] add from bower should handle no dependencies fields (#108)

---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 1e9bc41..4980256 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -500,7 +500,7 @@ data BowerInfoRepo = BowerInfoRepo
 data BowerInfo = BowerInfo
   { bower_name         :: Text
   , bower_repository   :: BowerInfoRepo
-  , bower_dependencies :: Map.Map Text Text
+  , bower_dependencies :: Maybe (Map.Map Text Text)
   , bower_version      :: Maybe Text
   } deriving (Show, Eq, Generic)
 instance Aeson.FromJSON BowerInfo where
@@ -526,7 +526,7 @@ addFromBower arg = do
               Nothing -> latest <$> Aeson.eitherDecodeStrict (encodeUtf8 result) :: Either String BowerInfo
             version' <- note "Unable to infer the package version" $ ("v" <>) <$> bower_version bowerInfo <|> version
             pkgName <- mkPackageName' $ bower_name bowerInfo
-            packageNames <- traverse mkPackageName' $ Map.keys (bower_dependencies bowerInfo)
+            packageNames <- traverse mkPackageName' $ Map.keys (fromMaybe Map.empty $ bower_dependencies bowerInfo)
             pure $
               ( pkgName
               , PackageInfo