shadow.hs

import System.IO
import Data.Dates
import Data.List.Split

data ShadowEntry = ShadowEntry {
  username :: String,
  hash :: String
} deriving (Show)

parseShadowEntryString :: String -> ShadowEntry
parseShadowEntryString x = ShadowEntry (splitOn ":" x !! 0) (splitOn ":" x !! 1)


main = do
  shadow <- readFile "./shadow"
  putStr $ parseShadowEntryString "root:ABC"