vegowotenks/ubcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed the infinite loop

Browse source
This commit is contained in:
vegowotenks 2025-02-13 23:39:17 +01:00
parent b87917dc2e
commit c12458a2bf
3 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Ubc/Parse/Syntax/File.hs
View file

@ -19,7 +19,7 @@ import qualified Ubc.Parse.Syntax.Struct as Struct
import qualified Ubc.Parse.Syntax.Function as Function
import qualified Ubc.Parse.Syntax.Statement as Statement
import qualified Ubc.Parse.Syntax.Enumeration as Enumeration
import GHC.Generics (Generic)
import GHC.Generics (Generic, Generically(..))
import Data.Functor ((<&>))
data File = File
@ -35,10 +35,11 @@ data FileBody = FileBody
, enumerations :: [Enumeration]
}
deriving stock (Show, Generic)
deriving (Semigroup, Monoid) via FileBody
deriving (Semigroup, Monoid) via Generically FileBody
-- dont use `deriving ... via FileBody` because that leads to a loop, somehow
parse :: Monad m => ParsecT String u m File
parse = File "" <$!> mconcat <$!> many fileMember
parse :: Monad m => String -> ParsecT String u m File
parse source = File source <$!> mconcat <$!> many fileMember
fileMember :: Monad m => ParsecT String u m FileBody
fileMember = choice