Inline THLinkTest into alpine job

haskell · Jul 19, 2022 · cef9848 · cef9848
1 parent c28d8e5
commit cef9848
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 13 deletions.
diff --git a/.github/workflows/simdutf-flag-alpine.yml b/.github/workflows/simdutf-flag-alpine.yml
@@ -35,6 +35,14 @@ jobs:
       - uses: actions/checkout@v2
       - name: Test
         run: |
+          cat > THLinkTest.hs <<EOF
+          {-# LANGUAGE TemplateHaskell #-}
+          import Debug.Trace
+          import Data.Text
+          main :: IO ()
+          main = return ()
+          ( traceM (unpack (pack "test")) >> pure [] )
+          EOF
           cabal build -f-simdutf --disable-tests --disable-benchmarks
-          cabal exec -f-simdutf --disable-tests --disable-benchmarks ghc -- tests/THLinkTest.hs
+          cabal exec -f-simdutf --disable-tests --disable-benchmarks ghc -- THLinkTest.hs
         shell: bash
diff --git a/tests/THLinkTest.hs b/tests/THLinkTest.hs