From 92c528ccc144361c32853583daad098f0de29c90 Mon Sep 17 00:00:00 2001 From: Miguel Date: Thu, 19 Jul 2018 23:43:12 +0200 Subject: added two packages from stackage and playing with them --- app/Main.hs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'app') diff --git a/app/Main.hs b/app/Main.hs index 5273780..b299fec 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,7 +1,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 call some func from Main now" +main = do putStrLn "we will play with Rainbow package ant then call some func from our Lib." + myPrintedChunks someFunc -- cgit v1.2.3