Skip to content

Instantly share code, notes, and snippets.

@andrewthad
Created November 14, 2019 19:35
Show Gist options
  • Save andrewthad/0f57221c46bbb1f32f894aa44ea851fa to your computer and use it in GitHub Desktop.
Save andrewthad/0f57221c46bbb1f32f894aa44ea851fa to your computer and use it in GitHub Desktop.
Ten ByteString Literals
{-# 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"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment