mirror of
https://github.com/gren-lang/compiler.git
synced 2024-10-26 18:00:47 +03:00
Fix formatting.
This commit is contained in:
parent
f2d41076c1
commit
c503f048f3
@ -27,7 +27,7 @@ import Data.Name qualified as Name
|
||||
import Data.Set qualified as Set
|
||||
import Data.Word (Word8)
|
||||
import Foreign.Ptr (Ptr, plusPtr)
|
||||
import GHC.Exts (Char (C#), Int#, chr#, uncheckedIShiftL#, word8ToWord#, word2Int#, (+#), (-#))
|
||||
import GHC.Exts (Char (C#), Int#, chr#, uncheckedIShiftL#, word2Int#, word8ToWord#, (+#), (-#))
|
||||
import GHC.Word (Word8 (W8#))
|
||||
import Parse.Primitives (Col, Parser, Row, unsafeIndex)
|
||||
import Parse.Primitives qualified as P
|
||||
|
@ -21,16 +21,16 @@ spec = do
|
||||
|
||||
it "Value names can contain non-ascii characters" $ do
|
||||
parse "vålue = 1"
|
||||
|
||||
|
||||
it "Value names can be only non-ascii characters" $ do
|
||||
parse "æøå = 1"
|
||||
|
||||
parse :: BS.ByteString -> IO ()
|
||||
parse str =
|
||||
P.fromByteString
|
||||
(P.specialize (\_ row col -> DeclError row col) declaration)
|
||||
(OtherError "fromByteString failed")
|
||||
str
|
||||
P.fromByteString
|
||||
(P.specialize (\_ row col -> DeclError row col) declaration)
|
||||
(OtherError "fromByteString failed")
|
||||
str
|
||||
`shouldSatisfy` valid
|
||||
|
||||
valid :: Either x y -> Bool
|
||||
|
Loading…
Reference in New Issue
Block a user