-- | Ignore a Unicode byte order mark (BOM) at the beginning of the input
--
ignoreBOM :: String -> String
ignoreBOM ('\xFEFF':string) = string
ignoreBOM :: String -> String
ignoreBOM ('\xFEFF':string) = string
ignoreBOM ('\xFEFF':string) = string