Ten ByteString Literals

ten_literals.hs

{-# language OverloadedStrings #-}
{-# OPTIONS_GHC -O2 -fforce-recomp -ddump-simpl -dsuppress-all -ddump-to-file -ddump-cmm -ddump-asm #-}

module ConstantLength
  ( stringOne
  , stringTwo
  , stringThree
  , stringFour
  , stringFive
  , stringSix
  , stringSeven
  , stringEight
  , stringNine
  , stringTen
  ) where

import Data.ByteString (ByteString)
import qualified Data.ByteString as B

stringOne :: ByteString
stringOne = "number1"

stringTwo :: ByteString
stringTwo = "number2"

stringThree :: ByteString
stringThree = "number3"

stringFour :: ByteString
stringFour = "number4"

stringFive :: ByteString
stringFive = "number5"

stringSix :: ByteString
stringSix = "number6"

stringSeven :: ByteString
stringSeven = "number7"

stringEight :: ByteString
stringEight = "number8"

stringNine :: ByteString
stringNine = "number9"

stringTen :: ByteString
stringTen = "number10"