diff options
| author | lassulus <lassulus@lassul.us> | 2023-01-19 14:11:01 +0100 |
|---|---|---|
| committer | lassulus <lassulus@lassul.us> | 2023-01-19 14:11:01 +0100 |
| commit | b51998cfae7b6fe892f9f0f9a2c0ffcfeeded0ba (patch) | |
| tree | ca76ec46d32a99edacfd2d0be19a7f1ef410fe76 /tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs | |
| parent | 347bb9ae00f8f1b6942f94d4c983593052a5c227 (diff) | |
| parent | 57abca263fe86259807e5597d1c8f11c3c3acd44 (diff) | |
Merge remote-tracking branch 'ni/master'
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs')
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs b/tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs deleted file mode 100644 index 2a3a0e52..00000000 --- a/tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs +++ /dev/null @@ -1,18 +0,0 @@ -{-# LANGUAGE ScopedTypeVariables #-} - -module THEnv.JSON where - -import Data.Aeson (eitherDecode,FromJSON) -import Data.ByteString.Lazy.Char8 (pack) -import Language.Haskell.TH.Syntax (Exp,Lift(lift),Q) -import THEnv (getCompileEnv) -import Control.Monad - -getCompileEnvJSON :: (FromJSON a) => String -> Q a -getCompileEnvJSON name = - either error (id :: a -> a) . eitherDecode . pack <$> getCompileEnv name - -getCompileEnvJSONExp :: - forall proxy a. (FromJSON a, Lift a) => proxy a -> String -> Q Exp -getCompileEnvJSONExp _ = - (lift :: a -> Q Exp) <=< getCompileEnvJSON |