Set env vars or crash trying

Envy.hs

module Envy where

import Data.List
import System.Posix.Env

envy s = do
  f <- readFile s
  mapM_ (uncurry (\x y -> setEnv x y True) . kv) $ lines f
  where
    kv s = let (Just i) = findIndex (== ':') s
           in (tail . tail) `fmap` splitAt i s