OverloadedStrings crash

gistfile1.hs

{-# LANGUAGE OverloadedStrings #-}
import Data.String

newtype BadString = BS String deriving Show

instance IsString BadString where fromString = error

main = print ("Hello, World!" :: BadString)

{-
produces:
$ ./Overloaded.exe
Overloaded.exe: Hello, World!

Instead of:
$ ./Overloaded.exe
BS "Hello, World!"
-}