Skip to content

GitLab

  • Projects
  • Groups
  • Snippets
  • Help
    • Loading...
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
C
curry-frontend
  • Project overview
    • Project overview
    • Details
    • Activity
    • Releases
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 62
    • Issues 62
    • List
    • Boards
    • Labels
    • Service Desk
    • Milestones
  • Merge Requests 4
    • Merge Requests 4
  • Operations
    • Operations
    • Incidents
  • Analytics
    • Analytics
    • Repository
    • Value Stream
  • Wiki
    • Wiki
  • Members
    • Members
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar
  • curry
  • curry-frontend
  • Issues
  • #26

Closed
Open
Opened Aug 16, 2018 by Finn Teegen@fteMaintainer

Fix desugaring of record patterns

Consider the following program.

data Car = Car {company :: String, model :: String, year :: Int}

main =
  let
    rec = Car {company="Ford", model="Mustang", year=1967}
    rec2 = Car {company="Toyota", model="Camry", year=1997}
    Car { company = companyVar } = rec
    Car { company = companyVar2 } = rec2
  in
    rec

Compiling the program above leads to an internal error.

[2 of 2] Compiling test             ( test.curry, .curry/test.fcy )
pakcs-frontend: Internal error: qualBindTopEnv QualIdent {qidModule =
Nothing, qidIdent = Ident {idPosition = NoPos, idName = "_", idUnique
= 0}}
CallStack (from HasCallStack):
  error, called at src/Base/Messages.hs:78:21 in main:Base.Messages
ERROR occurred during parsing!
Assignee
Assign to
None
Milestone
None
Assign milestone
Time tracking
None
Due date
None
Reference: curry/curry-frontend#26