Flatten module hierarchy

Wm.hs

@@ -1,6 +1,6 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
 
-module Thunk.Wm where
+module Wm where
 
 import Data.Sequence
 import Control.Monad.State

XlibExtras.hsc

@@ -1,4 +1,4 @@
-module Thunk.XlibExtras where
+module XlibExtras where
 
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Types

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:

thunk.hs

@@ -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