modifyPattern :: IsString s => String -> s
modifyPattern pat
  | '*' `elem` pat = fromString pat
  | otherwise      = fromString $ "*" <> pat <> "*"
modifyPattern :: IsString s => String -> s
modifyPattern pat
  | '*' `elem` pat = fromString pat
  | otherwise      = fromString $ "*" <> pat <> "*"
modifyPattern pat
  | '*' `elem` pat = fromString pat
  | otherwise      = fromString $ "*" <> pat <> "*"