Formatting
All checks were successful
Haskell CI / build (pull_request) Successful in 2m17s
Haskell CI / test (pull_request) Successful in 2m12s
Haskell CI / fourmolu (pull_request) Successful in 6s
Haskell CI / hlint (pull_request) Successful in 5s

This commit is contained in:
Igor Ranieri 2025-09-27 16:57:04 +02:00
parent 42b9dedbab
commit 03a41acc02

View file

@ -9,13 +9,8 @@ import Lexer
import Parser import Parser
import Types import Types
import Data.String (IsString (..))
import Data.Text (Text)
import GHC.Stack
import Text.Parsec.Pos
import Test.Hspec import Test.Hspec
import Text.Parsec.Pos import Text.Parsec.Pos
import Types
main :: IO () main :: IO ()
main = hspec $ do main = hspec $ do
@ -57,7 +52,6 @@ modules = do
, (1, 18, Anchor "myAnchor") , (1, 18, Anchor "myAnchor")
] ]
"\"OtherModule.Name\\#myAnchor\"" "\"OtherModule.Name\\#myAnchor\""
`shouldLexTo` [ (1, 2, Module "OtherModule.Name") `shouldLexTo` [ (1, 2, Module "OtherModule.Name")
, (1, 18, Anchor "myAnchor") , (1, 18, Anchor "myAnchor")