From 4d1402a1a7d87767267d48a77998e4fb13395b31 Mon Sep 17 00:00:00 2001
From: Pavan Rikhi <pavan.rikhi@gmail.com>
Date: Sat, 17 Mar 2018 22:48:24 -0400
Subject: Split Modules into Library & Executable Structure

Move the Main module to a new `app` directory. All other modules have
been nested under the `Xmobar` name. Lots of module headers & imports
were updated.
---
 src/XPMFile.hsc | 60 ---------------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100644 src/XPMFile.hsc

(limited to 'src/XPMFile.hsc')

diff --git a/src/XPMFile.hsc b/src/XPMFile.hsc
deleted file mode 100644
index f10449b..0000000
--- a/src/XPMFile.hsc
+++ /dev/null
@@ -1,60 +0,0 @@
-{-# LANGUAGE FlexibleContexts, ForeignFunctionInterface #-}
------------------------------------------------------------------------------
--- |
--- Module      :  XPMFile
--- Copyright   :  (C) 2014 Alexander Shabalin
--- License     :  BSD3
---
--- Maintainer  :  jao@gnu.org
--- Stability   :  unstable
--- Portability :  unportable
---
------------------------------------------------------------------------------
-
-module XPMFile(readXPMFile) where
-
-#if MIN_VERSION_mtl(2, 2, 1)
-import Control.Monad.Except(MonadError(..))
-#else
-import Control.Monad.Error(MonadError(..))
-#endif
-import Control.Monad.Trans(MonadIO(..))
-import Graphics.X11.Xlib(Dimension, Display(..), Drawable, Pixmap)
-import Foreign.C.String(CString, withCString)
-import Foreign.C.Types(CInt(..), CLong)
-import Foreign.Ptr(Ptr)
-import Foreign.Marshal.Alloc(alloca, allocaBytes)
-import Foreign.Storable(peek, peekByteOff, pokeByteOff)
-
-#include <X11/xpm.h>
-
-foreign import ccall "XpmReadFileToPixmap"
-    xpmReadFileToPixmap :: Display -> Drawable -> CString -> Ptr Pixmap -> Ptr Pixmap -> Ptr () -> IO CInt
-
-readXPMFile
-    :: (MonadError String m, MonadIO m)
-    => Display
-    -> Drawable
-    -> String
-    -> m (Dimension, Dimension, Pixmap, Maybe Pixmap)
-readXPMFile display d filename =
-    toError $ withCString filename $ \c_filename ->
-    alloca $ \pixmap_return ->
-    alloca $ \shapemask_return ->
-    allocaBytes (#size XpmAttributes) $ \attributes -> do
-        (#poke XpmAttributes, valuemask) attributes ((#const XpmReturnAllocPixels) :: CLong)
-        res <- xpmReadFileToPixmap display d c_filename pixmap_return shapemask_return attributes
-        case res of
-             0 -> do
-                 width <- (#peek XpmAttributes, width) attributes
-                 height <- (#peek XpmAttributes, height) attributes
-                 pixmap <- peek pixmap_return
-                 shapemask <- peek shapemask_return
-                 return $ Right (width, height, pixmap, if shapemask == 0 then Nothing else Just shapemask)
-             1 -> return $ Left "readXPMFile: XpmColorError"
-             -1 -> return $ Left "readXPMFile: XpmOpenFailed"
-             -2 -> return $ Left "readXPMFile: XpmFileInvalid"
-             -3 -> return $ Left "readXPMFile: XpmNoMemory"
-             -4 -> return $ Left "readXPMFile: XpmColorFailed"
-             _ -> return $ Left "readXPMFile: Unknown error"
-    where toError m = either throwError return =<< liftIO m
-- 
cgit v1.2.3