stack-all-0.6.3: src/StackYaml.hs

{-# LANGUAGE OverloadedStrings #-}

module StackYaml (readStackYaml)
where

import Data.Yaml (decodeFileThrow)
import Network.HTTP.Query (lookupKey)

import MajorVer (MajorVer, snapMajorVer)

readStackYaml :: FilePath -> IO (Maybe MajorVer)
readStackYaml file = do
  yaml <- decodeFileThrow file
  return $ snapMajorVer <$> lookupKey "resolver" yaml