引数部分にパターンを使えるので次のように書けます。
getBarcodeString :: Barcode -> String
getBarcodeString (Upca a b c d) = show a ++ show b ++ show c ++ show d
getBarcodeString (Qrcode s ) = s
main = do
putStrLn $ getBarcodeString barcode1
putStrLn $ getBarcodeString barcode2
より素朴にcase
式を使うのであれば
getBarcodeString' :: Barcode -> String
getBarcodeString' x = case x of
Upca a b c d -> show a ++ show b ++ show c ++ show d
Qrcode s -> s
となります。