sordina

{-# LANGUAGE OverloadedStrings #-}

import GHC.Exts ( IsString(..) )

data Foo = A | B | Other String deriving Show

instance IsString Foo where
  fromString "A" = A
  fromString "B" = B
  fromString xs  = Other xs