diff options
| -rw-r--r-- | Main.hs | 4 | ||||
| -rw-r--r-- | WMonad.hs | 2 | ||||
| -rw-r--r-- | thunk.cabal | 3 |
3 files changed, 5 insertions, 4 deletions
@@ -155,11 +155,11 @@ hide :: Window -> W () hide w = withDisplay $ \d -> do sw <- gets screenWidth sh <- gets screenHeight - io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) + io $! moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) -- | reveal. Expose a list of windows, moving them on screen reveal :: Window -> W () -reveal w = withDisplay $ \d -> io $ moveWindow d w 0 0 +reveal w = withDisplay $ \d -> io $! moveWindow d w 0 0 -- | windows. Modify the current window list with a pure function, and refresh windows :: (WorkSpace -> WorkSpace) -> W () @@ -68,4 +68,4 @@ whenJust mg f = maybe (return ()) f mg -- | A 'trace' for the W monad. Logs a string to stderr. The result may -- be found in your .xsession-errors file trace :: String -> W () -trace msg = io $ do hPutStrLn stderr msg; hFlush stderr +trace msg = io $! do hPutStrLn stderr msg; hFlush stderr diff --git a/thunk.cabal b/thunk.cabal index d009f7d..f8f773d 100644 --- a/thunk.cabal +++ b/thunk.cabal @@ -11,5 +11,6 @@ build-depends: base==2.0, X11>=1.1, X11-extras==0.0, unix==1.0, mtl==1.0 executable: thunk main-is: Main.hs -ghc-options: -O -Wall -optl-Wl,-s +ghc-options: -O2 -Wall -optl-Wl,-s +-- ghc-options: -O2 -Wall -optl-Wl,-s -prof -auto-all extensions: GeneralizedNewtypeDeriving |