summaryrefslogtreecommitdiff
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs14
1 files changed, 13 insertions, 1 deletions
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