22 lines
556 B
Haskell
22 lines
556 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Package ( Package(..)
|
|
, Repository(..)
|
|
, package
|
|
) where
|
|
|
|
import Data.Aeson ( eitherDecodeStrict )
|
|
import Data.Either ( either )
|
|
import Language.Haskell.TH.Syntax ( addDependentFile, lift, runIO )
|
|
import Package.Types
|
|
|
|
import qualified Data.ByteString as B
|
|
|
|
package :: Package
|
|
package = $(do
|
|
let f = "package.json"
|
|
addDependentFile f
|
|
json <- runIO $ B.readFile f
|
|
let result = eitherDecodeStrict json :: Either String Package
|
|
either fail lift result)
|