From b05be850349dbb813d2af6f3ee7a2fc3bf98b8ef Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Fri, 3 Oct 2025 21:57:20 +0530
Subject: Refactor to Text

---
 lib/Daffm/Types.hs | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'lib/Daffm/Types.hs')

diff --git a/lib/Daffm/Types.hs b/lib/Daffm/Types.hs
index 882a9de..ffff4d0 100644
--- a/lib/Daffm/Types.hs
+++ b/lib/Daffm/Types.hs
@@ -5,6 +5,7 @@ import qualified Brick.Widgets.Edit as Editor
 import qualified Brick.Widgets.List as L
 import qualified Data.Map as Map
 import qualified Data.Set as Set
+import qualified Data.Text as Text
 import System.Posix.Types (FileMode, FileOffset)
 
 data FileType
@@ -18,9 +19,11 @@ data FileType
   | UnknownFileType
   deriving (Show)
 
+type FilePathText = Text.Text
+
 data FileInfo = FileInfo
-  { fileName :: String,
-    filePath :: FilePath,
+  { fileName :: Text.Text,
+    filePath :: FilePathText,
     fileSize :: FileOffset,
     fileMode :: FileMode,
     fileType :: FileType
@@ -32,14 +35,14 @@ data FocusTarget = FocusCmdline | FocusMain deriving (Show, Eq, Ord)
 data AppState = AppState
   { stateFiles :: L.List FocusTarget FileInfo,
     stateCmdlineEditor :: CmdlineEditor,
-    stateFileSelections :: Set.Set FilePath,
+    stateFileSelections :: Set.Set FilePathText,
     stateFocusTarget :: FocusTarget,
-    stateCwd :: FilePath,
-    stateListPositionCache :: Map.Map String Int,
-    stateParentDir :: FilePath
+    stateCwd :: FilePathText,
+    stateListPositionCache :: Map.Map Text.Text Int,
+    stateParentDir :: FilePathText
   }
   deriving (Show)
 
 type AppEvent = EventM FocusTarget AppState
 
-type CmdlineEditor = Editor.Editor String FocusTarget
+type CmdlineEditor = Editor.Editor Text.Text FocusTarget
-- 
cgit v1.3.1