diff options
| author | makefu <github@syntax-fehler.de> | 2023-01-30 23:43:04 +0100 |
|---|---|---|
| committer | makefu <github@syntax-fehler.de> | 2023-01-30 23:43:04 +0100 |
| commit | 369fa6b7eb3f0fa3e1034bcad438eeda017949f8 (patch) | |
| tree | 22f7891595fba32a7e66b755617e0d49b91993f3 /tv/5pkgs/haskell/xmonad-tv/src/THEnv/JSON.hs | |
| parent | dbc3870841223051e4f617b4c06065c168c69c10 (diff) | |
| parent | c7417c8bc1b50d466dae493ac3619d9f324f34f8 (diff) | |
Merge remote-tracking branch 'lass/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 |