Better git errors

Author: f-f

spaghetto/.gitignore

@@ -10,3 +10,4 @@
 /.psa*
 /.spago
 /bin/bundle.js
+.direnv

spaghetto/bin/spago.yaml

@@ -24,6 +24,6 @@ package:
   bundle:
     module: Main
     outfile: bundle.js
-    minify: true
+    minify: false
     platform: node
     type: app

spaghetto/src/Spago/Git.purs

@@ -54,7 +54,10 @@ fetchRepo { git, ref } path = do
       (runGit_ [ "symbolic-ref", "-q", "HEAD" ] (Just path))
 
   case result of
-    Left err -> throwError err
+    Left err -> die
+      [ "Error while fetching the repo '" <> git <> "' at ref '" <> ref <> "':"
+      , err
+      ]
     Right _ -> pure unit
 
 getRef :: forall a. Spago (GitEnv a) (Either Docc String)

spaghetto/src/Spago/Prelude.purs

@@ -6,7 +6,6 @@ module Spago.Prelude
   , parseUrl
   , partitionEithers
   , shaToHex
-  , throwError
   , unsafeFromRight
   , unsafeLog
   , unsafeStringify
@@ -30,9 +29,6 @@ import Registry.Version as Version
 
 import Unsafe.Coerce (unsafeCoerce)
 
-throwError :: forall a m. MonadThrow Error m => String -> m a
-throwError = Aff.throwError <<< Aff.error
-
 unsafeFromRight :: forall e a. Either e a -> a
 unsafeFromRight v = Either.fromRight' (\_ -> unsafeCrashWith $ "Unexpected Left: " <> unsafeStringify v) v