From 40ffb7fd7375aed7a7fbf8cb18799dda850573f3 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Mon, 6 Jul 2020 23:32:50 +0200
Subject: [PATCH] Create bindir in upgradeGHCup

This should only be necessary in edge cases.
---
 lib/GHCup.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index cb110ef..c9adfd0 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -927,6 +927,8 @@ upgradeGHCup dls mtarget force = do
           `unionFileModes` ownerExecuteMode
           `unionFileModes` groupExecuteMode
           `unionFileModes` otherExecuteMode
+  binDir <- liftIO $ ghcupBinDir
+  liftIO $ createDirIfMissing newDirPerms binDir
   case mtarget of
     Nothing -> do
       dest <- liftIO $ ghcupBinDir