- = case reads (unpackFS ext) of
- [] -> languagePragParseError l
- (okExt,""):_ -> case extensionsToGHCFlag [okExt] of
- ([],[opt]) -> L l opt
- _ -> unsupportedExtnError l okExt
+ = case reads (unpackFS ext) of
+ [] -> languagePragParseError l
+ (okExt,""):_ ->
+ case readVersion cProjectVersion of
+ Just version ->
+ case extensionsToGHCFlag version [okExt] of
+ ([],[opt]) -> L l opt
+ _ -> unsupportedExtnError l okExt
+ Nothing ->
+ panic ("Can't parse version: " ++ show cProjectVersion)