about summary refs log tree commit diff
path: root/users/grfn/emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'users/grfn/emacs.d')
-rw-r--r--users/grfn/emacs.d/snippets/haskell-mode/test-module15
1 files changed, 10 insertions, 5 deletions
diff --git a/users/grfn/emacs.d/snippets/haskell-mode/test-module b/users/grfn/emacs.d/snippets/haskell-mode/test-module
index 82224b36a49e..036b0ae9983a 100644
--- a/users/grfn/emacs.d/snippets/haskell-mode/test-module
+++ b/users/grfn/emacs.d/snippets/haskell-mode/test-module
@@ -3,7 +3,6 @@
 # key: test
 # expand-env: ((yas-indent-line 'fixed))
 # --
-{-# LANGUAGE ApplicativeDo #-}
 --------------------------------------------------------------------------------
 module ${1:`(if (not buffer-file-name) "Module"
                 (let ((name (file-name-sans-extension (buffer-file-name)))
@@ -12,11 +11,17 @@ module ${1:`(if (not buffer-file-name) "Module"
                          (replace-regexp-in-string "/" "."
                            (replace-regexp-in-string "^\/[^A-Z]*" ""
                              (car (last (split-string name "src")))))
-                         (file-name-nondirectory name))))`} where
+                         (file-name-nondirectory name))))`} (main, test) where
 --------------------------------------------------------------------------------
 import           Test.Prelude
-import qualified Hedgehog.Gen as Gen
-import qualified Hedgehog.Range as Range
 --------------------------------------------------------------------------------
-import           ${1:$(s-chop-suffix "Test" yas-text)}
+import           ${1:$(s-chop-suffix "Spec" yas-text)}
 --------------------------------------------------------------------------------
+
+main :: IO ()
+main = defaultMain test
+
+test :: TestTree
+test = testGroup "$1"
+  [ $0
+  ]
\ No newline at end of file