From 63e74545ab9e962b16a367a5f0d693bc099656ce Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 14 Feb 2024 17:37:31 +0100
Subject: [PATCH] :paperclip: Add get-raw-file srepl helper

---
 backend/src/app/srepl/helpers.clj | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/backend/src/app/srepl/helpers.clj b/backend/src/app/srepl/helpers.clj
index 9df761db02..07b89ab7cd 100644
--- a/backend/src/app/srepl/helpers.clj
+++ b/backend/src/app/srepl/helpers.clj
@@ -85,6 +85,14 @@
                 {:id id})
     team))
 
+(defn get-raw-file
+  "Get the migrated data of one file."
+  ([id] (get-raw-file (or *system* main/system) id))
+  ([system id]
+   (db/run! system
+            (fn [system]
+              (files/get-file system id :migrate? false)))))
+
 (defn reset-file-data!
   "Hardcode replace of the data of one file."
   [system id data]