nvfetcher-0.3.0.0: src/NvFetcher/Utils.hs

module NvFetcher.Utils where

import Data.Binary
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as LBS
import Data.Text (Text)
import qualified Data.Text as T
import Development.Shake

encode' :: Binary a => a -> BS.ByteString
encode' = BS.concat . LBS.toChunks . encode

decode' :: Binary a => BS.ByteString -> a
decode' = decode . LBS.fromChunks . pure

asString :: Text -> Text
asString = T.pack . show

getShakeDir :: Action FilePath
getShakeDir = shakeFiles <$> getShakeOptions