@@ -132,7 +132,9 @@ parseCabalPackage dir = do
132132 return Nothing
133133 Right (DecodeResult hpackPackage _ _ _) -> do
134134 return $ Just $ renderPackage [] hpackPackage
135− else return Nothing
135+ else do
136+ putLog Error $ T.pack $ "Found neither cabal nor hpack file"
137+ return Nothing
136138
137139 fmap join $ forM mCabalContents $ \cabalContents -> do
138140 let (warnings, result) = runParseResult $ parseGenericPackageDescription $
@@ -254,4 +256,4 @@ getFreePort = liftIO $ withSocketsDo $ do
254256 open addr = do
255257 sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
256258 bind sock (addrAddress addr)
257− return sock
259+ return sock