Egg/twin
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

First attempt at implementation

Browse source
This commit is contained in:
Nox Sluijtman 2023-07-31 14:57:33 +02:00
parent 5d241e19f8
commit 48a785ff97
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
app/Main.hs
View file

@ -61,16 +61,12 @@ parseArgs (Args t dir h v c r) = do
if not (null h) if not (null h)
then putStr $ "\n\n" ++ h ++ "\n\n" then putStr $ "\n\n" ++ h ++ "\n\n"
else putStr "\n" else putStr "\n"
mkIndex r . filter (isSuffixOf ".gmi") =<< getDirectoryContents dir mapM_ (mkIndex r) . filter (isSuffixOf ".gmi") =<< getDirectoryContents dir
mkIndex :: Bool -> [String] -> IO () mkIndex :: Bool -> FilePath -> IO ()
mkIndex True l = mapM_ (putStrLn . ("=> " ++)) l mkIndex True l = do
-- where firstLine f = do line <- readFile l
-- print $ head . lines =<< readFile f putStrLn $ "=> " ++ l ++ (head . lines $ line)
mkIndex False l = mapM_ (putStrLn . ("=> " ++)) l mkIndex False l = putStrLn $ "=> " ++ l
firstLine :: FilePath -> IO ()
firstLine f = do
putStr . head . lines =<< readFile f
--compose = (++) <$> ("=> " ++) <*> (show . length) <*> (head . lines =<< readFile) --compose = (++) <$> ("=> " ++) <*> (show . length) <*> (head . lines =<< readFile)