diff options
| author | tv <tv@krebsco.de> | 2023-01-11 15:17:10 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2023-01-11 15:23:55 +0100 |
| commit | 59a447ac046424c27fa926a2416885c4f6724a7a (patch) | |
| tree | 619e004838e63f78b50818581b0a20133770d3ac /tv/5pkgs/haskell/xmonad-tv/src/THEnv | |
| parent | bd2aef1cd269185e0aa2ea42204b339fc6710bb6 (diff) | |
tv xmonad: get font and screen info from env
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src/THEnv')
| -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 2a3a0e523..000000000 --- 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 |