app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Main where

import Lib
import Rainbow
import qualified Data.ByteString as BS

myChunks :: [Chunk String]
myChunks = [ chunk "This is Red" & fore red, chunk "\n",
             chunk "And Violettes are Blue" & fore blue, chunk "\n" ]

myPrintedChunks :: IO ()
myPrintedChunks = mapM_ BS.putStr
                . chunksToByteStrings toByteStringsColors256
                $ myChunks

main :: IO ()
main = do  putStrLn "we will play with Rainbow package ant then call some func from our Lib."
	   myPrintedChunks
           someFunc