stripExt :: Extension -> FilePath -> FilePath
stripExt ext file = maybe file id $ stripSuffix ext' file
    where
	ext' = case ext of
	    '.' : _ -> ext
	    _ -> '.' : ext
stripExt :: Extension -> FilePath -> FilePath
stripExt ext file = maybe file id $ stripSuffix ext' file
    where
	ext' = case ext of
	    '.' : _ -> ext
	    _ -> '.' : ext
stripExt ext file = maybe file id $ stripSuffix ext' file
    where
	ext' = case ext of
	    '.' : _ -> ext
	    _ -> '.' : ext