package-plan-unpack

1 files changed, 11 insertions, 0 deletions

diff --git a/.bashrc b/.bashrc
index a5b9cf2e..51fe585e 100644
--- a/.bashrc
+++ b/.bashrc
@@ -162,6 +162,17 @@ debrel () {
     )
 }
 
+package-plan-unpack () {
+    package="$1"
+    patches="$HOME/src/package-plan/patches/${package%-*}/${package##*-}"
+    cd /tmp
+    cabal unpack "$package"
+    cd "$package"
+    mkdir -p "$patches"
+    ln -s "$patches" patches
+    ls "$(readlink $patches)"
+}
+
 # tidy up if I deleted files from stowed repos without properly
 # restowing
 kill-broken-stowed-symlinks () {