gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-10-26 18:00:47 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix formatting.

Browse Source
This commit is contained in:
Robin Heggelund Hansen 2023-09-21 11:23:58 +02:00
parent f2d41076c1
commit c503f048f3
No known key found for this signature in database
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/src/Parse/Variable.hs
View File

@ -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

10
tests/Parse/DeclSpec.hs
View File

@ -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