From e4829d620dd9c5261880cee92f49da43f2a8ed20 Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Mon, 13 Apr 2020 18:57:17 -0500
Subject: Move test code out of src folder

---
 src/Lib.hs   | 21 ---------------------
 test/Spec.hs | 20 +++++++++++++++++---
 2 files changed, 17 insertions(+), 24 deletions(-)
 delete mode 100644 src/Lib.hs

diff --git a/src/Lib.hs b/src/Lib.hs
deleted file mode 100644
index 3d4aede..0000000
--- a/src/Lib.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Lib
-    ( someFunc,
-      someFunc2
-    ) where
-
-import Development.Shake.FilePath ((</>))
-import System.Process (callCommand)
-
-
-someFunc :: IO ()
-someFunc = do
-    putStrLn "someFunc"
-    a <- callCommand "gfortran test/test1.f90 -o test1"
-    a <- callCommand $ "." </> "test1"
-    return ()
-
-someFunc2 :: IO ()
-someFunc2 = do
-    putStrLn "example"
-    a <- callCommand "cd example_project && stack run -- build"
-    return ()
diff --git a/test/Spec.hs b/test/Spec.hs
index 1c9fc48..c9ec08c 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,6 +1,20 @@
-import Lib (someFunc, someFunc2)
+import           Development.Shake.FilePath     ( (</>) )
+import           System.Process                 ( callCommand )
 
 main :: IO ()
 main = do
-    someFunc
-    someFunc2
+  someFunc
+  someFunc2
+
+someFunc :: IO ()
+someFunc = do
+  putStrLn "someFunc"
+  a <- callCommand "gfortran test/test1.f90 -o test1"
+  a <- callCommand $ "." </> "test1"
+  return ()
+
+someFunc2 :: IO ()
+someFunc2 = do
+  putStrLn "example"
+  a <- callCommand "cd example_project && stack run -- build"
+  return ()
-- 
cgit v1.2.3