diff options
| -rw-r--r-- | Wm.hs (renamed from Thunk/Wm.hs) | 2 | ||||
| -rw-r--r-- | XlibExtras.hsc (renamed from Thunk/XlibExtras.hsc) | 2 | ||||
| -rw-r--r-- | thunk.cabal | 2 | ||||
| -rw-r--r-- | thunk.hs | 5 |
4 files changed, 6 insertions, 5 deletions
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -fglasgow-exts #-} -module Thunk.Wm where +module Wm where import Data.Sequence import Control.Monad.State diff --git a/Thunk/XlibExtras.hsc b/XlibExtras.hsc index 4be16b3..103a149 100644 --- a/Thunk/XlibExtras.hsc +++ b/XlibExtras.hsc @@ -1,4 +1,4 @@ -module Thunk.XlibExtras where +module XlibExtras where import Graphics.X11.Xlib import Graphics.X11.Xlib.Types diff --git a/thunk.cabal b/thunk.cabal index 42e3d4e..8d9b3b3 100644 --- a/thunk.cabal +++ b/thunk.cabal @@ -12,7 +12,7 @@ build-depends: base >= 2.0, X11, unix, mtl executable: thunk main-is: thunk.hs extensions: ForeignFunctionInterface -other-modules: Thunk.XlibExtras +other-modules: XlibExtras ghc-options: -O include-dirs: include -- OpenBSD: @@ -10,8 +10,9 @@ import System.IO import Graphics.X11.Xlib import System.Process (runCommand) import System.Exit -import Thunk.Wm -import Thunk.XlibExtras + +import Wm +import XlibExtras handler :: Event -> Wm () handler (MapRequestEvent {window = w}) = manage w |