File: bomstrip.hs

package info (click to toggle)
bomstrip 9-15
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 252 kB
  • sloc: pascal: 41; ansic: 34; cpp: 34; java: 33; python: 31; sh: 24; makefile: 20; perl: 7; php: 6; ruby: 6; haskell: 6; awk: 2; sed: 1
file content (9 lines) | stat: -rwxr-xr-x 220 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
 
-- by mechiel lukkien, 18 september 2005, public domain

putStrNoBOM :: String -> IO ()
putStrNoBOM ('\xef':'\xbb':'\xbf':s) = putStr s
putStrNoBOM s = putStr s

main :: IO ()
main = do s <- getContents
	  putStrNoBOM s