@@ -191,8 +191,7 @@ cabalFromDirectory False dir = do
192 cabals <- liftIO $ getDirectoryContents dir >>= filterM doesFileExist . map (dir </>) . filter (".cabal" `isSuffixOf`)
192 cabals <- liftIO $ getDirectoryContents dir >>= filterM doesFileExist . map (dir </>) . filter (".cabal" `isSuffixOf`)
193 case cabals of
193 case cabals of
195− fail "*** Found neither a .cabal file nor package.yaml. Exiting."
194+ [] -> fail "*** Found neither a .cabal file nor package.yaml. Exiting."
196 [cabalFile] -> (,) False <$> cabalFromFile True cabalFile
195 [cabalFile] -> (,) False <$> cabalFromFile True cabalFile
197 _ -> liftIO $ fail ("*** found more than one cabal file (" ++ show cabals ++ "). Exiting.")
196 _ -> liftIO $ fail ("*** found more than one cabal file (" ++ show cabals ++ "). Exiting.")