From 432a8fc47bb11cf8fd0a832e033cfb94a6332dbe Mon Sep 17 00:00:00 2001 From: foo Date: Sun, 22 Sep 2013 07:29:39 +0000 Subject: [PATCH] deal with TH Export modules referenced by it. Should not need these icons in git-annex, so not worth using the Evil Splicer. --- Network/Wai/Application/Static.hs | 4 ---- wai-app-static.cabal | 2 +- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/Network/Wai/Application/Static.hs b/Network/Wai/Application/Static.hs index 3f07391..75709b7 100644 --- a/Network/Wai/Application/Static.hs +++ b/Network/Wai/Application/Static.hs @@ -33,8 +33,6 @@ import Control.Monad.IO.Class (liftIO) import Blaze.ByteString.Builder (toByteString) -import Data.FileEmbed (embedFile) - import Data.Text (Text) import qualified Data.Text as T @@ -198,8 +196,6 @@ staticAppPieces _ _ req H.status405 [("Content-Type", "text/plain")] "Only GET is supported" -staticAppPieces _ [".hidden", "folder.png"] _ = return $ W.responseLBS H.status200 [("Content-Type", "image/png")] $ L.fromChunks [$(embedFile "images/folder.png")] -staticAppPieces _ [".hidden", "haskell.png"] _ = return $ W.responseLBS H.status200 [("Content-Type", "image/png")] $ L.fromChunks [$(embedFile "images/haskell.png")] staticAppPieces ss rawPieces req = liftIO $ do case toPieces rawPieces of Just pieces -> checkPieces ss pieces req >>= response diff --git a/wai-app-static.cabal b/wai-app-static.cabal index ec22813..e944caa 100644 --- a/wai-app-static.cabal +++ b/wai-app-static.cabal @@ -56,9 +56,9 @@ library WaiAppStatic.Storage.Embedded WaiAppStatic.Listing WaiAppStatic.Types - other-modules: Util WaiAppStatic.Storage.Embedded.Runtime WaiAppStatic.Storage.Embedded.TH + other-modules: Util ghc-options: -Wall extensions: CPP -- 1.7.10.4