From a816333ae67c54b98cce4ed22621242714967b3e Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 23 Oct 2018 15:19:43 -0400
Subject: [PATCH] Add support for response files in wrapper script

Reviewers: O25 HSC2HS, hvr

Subscribers: ckoparkar

Differential Revision: https://phabricator.haskell.org/D5238
---
 hsc2hs.wrapper | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/hsc2hs.wrapper b/hsc2hs.wrapper
index e4479dd..ee1ad9d 100644
--- a/hsc2hs.wrapper
+++ b/hsc2hs.wrapper
@@ -2,10 +2,26 @@
 
 tflag="--template=$topdir/template-hsc.h"
 Iflag="-I$topdir/include/"
+
+read_response() {
+    response_file=$1
+    if [ -f "$response_file" ]; then
+        while read -r arg; do
+            case "$arg" in
+                -t*)          tflag=;;
+                --template=*) tflag=;;
+                @*)           read_response "${arg#"@"}" ;;
+                --)           break;;
+            esac
+        done < "$response_file"
+    fi
+}
+
 for arg do
     case "$arg" in
         -t*)          tflag=;;
         --template=*) tflag=;;
+        @*)           read_response "${arg#"@"}" ;;
         --)           break;;
     esac
 done
-- 
GitLab