Ticket #3915: panic.diff

File panic.diff, 719 bytes (added by bob, 4 years ago)

Uncomment "instance Default GuiState?" block

  • State.hs

    diff -rN -u old-domination/State.hs new-domination/State.hs
    old new  
    172172                    , resetFirstFrame    = False 
    173173                    } 
    174174 
    175 {- 
    176 FIXME: This block causes GHC to panic and to claim that the impossible happens 
    177175instance Default GuiState where 
    178176    def = GuiState { g_font    = Nothing 
    179177                   , g_labels  = [] 
    180178                   , g_actions = [] 
    181179                   } 
    182 -} 
    183 instance Default GuiState where 
    184     def = undefined 
    185180 
    186181-- temporary data (can be used to set arbitrary next mode, etc.) 
    187182data Tmp = TmpNul | TmpMode Mode | TmpString String