Remove cariage return from the qq string

.gitea/deploy.awk

@@ -0,0 +1,3 @@
+END {
+    system("cabal upload --username belka --password "ENVIRON["HACKAGE_PASSWORD"]" "$0)
+}

.gitea/workflows/build.yml

@@ -9,28 +9,14 @@ on:
 
 jobs:
   audit:
-    runs-on: haskell
+    runs-on: buildenv
     steps:
-      - name: Set up environment
-        run: |
-          apt-get update -y
-          apt-get upgrade -y
-          apt-get install -y nodejs pkg-config
       - uses: actions/checkout@v4
-      - name: Install dependencies
-        run: |
-          cabal update
-          cabal install hlint "--constraint=hlint ==3.8"
-      - run: cabal exec hlint -- src tests
+      - run: hlint -- src tests
 
   test:
-    runs-on: haskell
+    runs-on: buildenv
     steps:
-      - name: Set up environment
-        run: |
-          apt-get update -y
-          apt-get upgrade -y
-          apt-get install -y nodejs pkg-config
       - uses: actions/checkout@v4
       - name: Install dependencies
         run: cabal update
@@ -39,13 +25,8 @@ jobs:
       - run: cabal test --test-show-details=streaming
 
   doc:
-    runs-on: haskell
+    runs-on: buildenv
     steps:
-      - name: Set up environment
-        run: |
-          apt-get update -y
-          apt-get upgrade -y
-          apt-get install -y nodejs pkg-config
       - uses: actions/checkout@v4
       - name: Install dependencies
         run: cabal update

.gitea/workflows/release.yml

@@ -7,17 +7,11 @@ on:
 
 jobs:
   release:
-    runs-on: haskell
+    runs-on: buildenv
     steps:
-      - name: Set up environment
-        run: |
-          apt-get update -y
-          apt-get upgrade -y
-          apt-get install -y nodejs pkg-config
       - uses: actions/checkout@v4
       - name: Upload a candidate
         env:
           HACKAGE_PASSWORD: ${{ secrets.HACKAGE_PASSWORD }}
         run: |
-          cabal sdist
-          cabal upload --username belka --password ${HACKAGE_PASSWORD}
+          cabal sdist | awk -f .gitea/deploy.awk

graphql.cabal

@@ -85,6 +85,7 @@ test-suite graphql-test
     Language.GraphQL.Execute.CoerceSpec
     Language.GraphQL.Execute.OrderedMapSpec
     Language.GraphQL.ExecuteSpec
+    Language.GraphQL.THSpec
     Language.GraphQL.Type.OutSpec
     Language.GraphQL.Validate.RulesSpec
     Schemas.HeroSchema

src/Language/GraphQL/TH.hs

@@ -12,17 +12,26 @@ import Language.Haskell.TH (Exp(..), Lit(..))
 
 stripIndentation :: String -> String
 stripIndentation code = reverse
-    $ dropNewlines
+    $ dropWhile isLineBreak
     $ reverse
     $ unlines
-    $ indent spaces <$> lines withoutLeadingNewlines
+    $ indent spaces <$> lines' withoutLeadingNewlines
   where
     indent 0 xs = xs
     indent count (' ' : xs) = indent (count - 1) xs
     indent _ xs = xs
-    withoutLeadingNewlines = dropNewlines code
-    dropNewlines = dropWhile $ flip any ['\n', '\r'] . (==)
+    withoutLeadingNewlines = dropWhile isLineBreak code
     spaces = length $ takeWhile (== ' ') withoutLeadingNewlines
+    lines' "" = []
+    lines' string =
+        let (line, rest) = break isLineBreak string
+            reminder =
+                case rest of
+                    [] -> []
+                    '\r' : '\n' : strippedString -> lines strippedString
+                    _ : strippedString -> lines strippedString
+         in line : reminder
+    isLineBreak = flip any ['\n', '\r'] . (==)
 
 -- | Removes leading and trailing newlines. Indentation of the first line is
 -- removed from each line of the string.

tests/Language/GraphQL/THSpec.hs

@@ -0,0 +1,23 @@
+{- This Source Code Form is subject to the terms of the Mozilla Public License,
+   v. 2.0. If a copy of the MPL was not distributed with this file, You can
+   obtain one at https://mozilla.org/MPL/2.0/. -}
+
+{-# LANGUAGE QuasiQuotes #-}
+
+module Language.GraphQL.THSpec
+    ( spec
+    ) where
+
+import Language.GraphQL.TH (gql)
+import Test.Hspec (Spec, describe, it, shouldBe)
+
+spec :: Spec
+spec =
+    describe "gql" $
+        it "replaces CRNL with NL" $
+            let expected = "line1\nline2"
+                actual = [gql|
+                  line1
+                  line2
+                |]
+             in actual `shouldBe` expected