diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-21 20:03:25 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-21 20:03:25 +0530 |
| commit | 70ac685a5043a7b8ea9b72537dca8258198640c7 (patch) | |
| tree | b0e67fd2868cd17354f4b0861caca716d6b9d7ee /src/Chelleport/Context.hs | |
| parent | 87815edbab70302793fb83259fedc1ae9004d172 (diff) | |
| download | chelleport-70ac685a5043a7b8ea9b72537dca8258198640c7.tar.gz chelleport-70ac685a5043a7b8ea9b72537dca8258198640c7.zip | |
Minor refactor
Diffstat (limited to 'src/Chelleport/Context.hs')
| -rw-r--r-- | src/Chelleport/Context.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/Chelleport/Context.hs b/src/Chelleport/Context.hs index 3c2c850..b721812 100644 --- a/src/Chelleport/Context.hs +++ b/src/Chelleport/Context.hs @@ -1,22 +1,18 @@ module Chelleport.Context (initializeContext) where +-- import Data.Time.Clock.System +-- import qualified Debug.Trace as Debug + +import Chelleport.Config import Chelleport.Types import Data.ByteString (ByteString) import Data.FileEmbed (embedFileRelative) --- import Data.Time.Clock.System --- import qualified Debug.Trace as Debug import Foreign.C (CFloat) import qualified Graphics.X11 as X11 import SDL (($=)) import qualified SDL import qualified SDL.Font as TTF -windowOpacity :: CFloat -windowOpacity = 0.5 - -fontSize :: Int -fontSize = 24 - -- benchmark :: String -> IO a -> IO a -- benchmark msg m = do -- start <- systemNanoseconds <$> getSystemTime |