From c6745f5b35fc9d89b1ffa10422a3beba1f92bb63 Mon Sep 17 00:00:00 2001
From: s464968 <antpal@st.amu.edu.pl>
Date: Sat, 25 May 2024 22:36:59 +0200
Subject: [PATCH] Add ByteString

---
 app/Main.hs    | 18 ++++++++++--------
 package.yaml   |  2 ++
 todo-app.cabal |  3 +++
 3 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index da0ca71..bf91efb 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,11 +1,13 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Main(main,parseTask, serializeTask, getPriority, comparePriority, TaskMap) where
+module Main(main, parseTask, serializeTask, getPriority, comparePriority, TaskMap) where
 
 import System.IO
 import System.Directory
-import Data.Text (Text, pack, unpack, isInfixOf, lines, unlines, strip, splitOn)
+import Data.Text (Text, pack, unpack, isInfixOf, lines, unlines, strip)
 import qualified Data.Text.IO as TIO
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Char8 as BSC
 import Control.Monad (when)
 import Data.List (sortBy)
 import Data.Ord (comparing)
@@ -42,8 +44,8 @@ displayTasks = do
     exists <- doesFileExist todoFile
     if exists
         then do
-            contents <- TIO.readFile todoFile
-            let taskMap = parseTask contents
+            contents <- BSC.readFile todoFile
+            let taskMap = parseTask (pack (BSC.unpack contents))
             putStrLn "Tasks:"
             mapM_ (putStrLn . showTask) (Map.toList taskMap)
         else putStrLn "No tasks found."
@@ -57,12 +59,12 @@ addTask = do
     exists <- doesFileExist todoFile
     if exists
         then do
-            contents <- TIO.readFile todoFile
-            let taskMap = parseTask contents
+            contents <- BSC.readFile todoFile
+            let taskMap = parseTask (pack (BSC.unpack contents))
                 newId = if Map.null taskMap then 1 else fst (Map.findMax taskMap) + 1
                 newTaskMap = Map.insert newId (pack task) taskMap
-            TIO.writeFile todoFile (serializeTask newTaskMap)
-        else TIO.writeFile todoFile (pack task <> "\n")
+            BSC.writeFile todoFile (BSC.pack (unpack (serializeTask newTaskMap)))
+        else BSC.writeFile todoFile (BSC.pack (task <> "\n"))
     putStrLn "Task added."
     main
 
diff --git a/package.yaml b/package.yaml
index 739633c..e2f2b9c 100644
--- a/package.yaml
+++ b/package.yaml
@@ -24,6 +24,8 @@ dependencies:
    - text
    - directory
    - containers
+   - bytestring
+
 
 ghc-options:
 - -Wall
diff --git a/todo-app.cabal b/todo-app.cabal
index 31fad91..c648b79 100644
--- a/todo-app.cabal
+++ b/todo-app.cabal
@@ -35,6 +35,7 @@ library
   ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints
   build-depends:
       base >=4.7 && <5
+    , bytestring
     , containers
     , directory
     , text
@@ -51,6 +52,7 @@ executable todo-app
   ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base >=4.7 && <5
+    , bytestring
     , containers
     , directory
     , text
@@ -69,6 +71,7 @@ test-suite todo-app-test
   ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base >=4.7 && <5
+    , bytestring
     , containers
     , directory
     , hspec