Read from file

Main.hs

import System.Environment (getArgs)

doStuffToFile :: String -> IO ()
doStuffToFile str = print $ length str

-- alt1: "stack build" så "stack exec <projectname>-exe path-to-file-if-not-in-folder/bible.txt"
main :: IO ()
main = do
    args <- getArgs
    case args of
        [filepath] -> readFile filepath >>= doStuffToFile
        _     -> putStrLn "Provide a filename, u idiot"
        
-- alt2: "stack ghci" så "main"
main2 :: IO ()
main2 = do
  bib <- readFile "bible.txt"
  putStrLn bib