From c22396d8d80dc090897631ab89a35ab91d0e0c07 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Sun, 20 Jan 2019 15:53:58 +0000
Subject: Add template file

---
 src/VeriFuzz/Simulator/General.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/VeriFuzz/Simulator/General.hs')

diff --git a/src/VeriFuzz/Simulator/General.hs b/src/VeriFuzz/Simulator/General.hs
index 3615d3a..538ecaa 100644
--- a/src/VeriFuzz/Simulator/General.hs
+++ b/src/VeriFuzz/Simulator/General.hs
@@ -38,6 +38,11 @@ class (Simulator a) => Synthesize a where
            -> FilePath -- ^ Output verilog file for the module
            -> Sh ()    -- ^ does not return any values
 
+rootPath :: Sh FilePath
+rootPath = do
+  current <- pwd
+  maybe current fromText <$> get_env "VERIFUZZ_ROOT"
+
 timeout :: FilePath -> [Text] -> Sh Text
 timeout = command1 "timeout" ["180"] . toTextIgnore
 {-# INLINE timeout #-}
-- 
cgit