14 lines
299 B
Haskell
14 lines
299 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import qualified Data.ByteString as B
|
|
import Verify
|
|
import Turtle
|
|
|
|
main :: IO ()
|
|
main = do
|
|
jsonString <- B.readFile "packages.json"
|
|
case decodePackagesSpec jsonString of
|
|
Nothing -> die "Bad JSON file"
|
|
Just ps -> verifyPackageSet ps
|