From 50805329b976eb90092504d4d181269f151fbb82 Mon Sep 17 00:00:00 2001 From: pho Date: Fri, 20 Feb 2009 23:14:32 +0900 Subject: [PATCH] Lucu now *requires* base >= 4. Ignore-this: 1ba4a13aebb46843ab0845457ead3857 darcs-hash:20090220141432-62b54-0d6707a33d0ed597afc33fd10024c73846cfc179.gz --- Lucu.cabal | 12 ++++++++---- Network/HTTP/Lucu/MIMEType/Guess.hs | 6 +++--- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/Lucu.cabal b/Lucu.cabal index 3b8d53d..70844e9 100644 --- a/Lucu.cabal +++ b/Lucu.cabal @@ -17,9 +17,8 @@ Stability: experimental Homepage: http://cielonegro.org/Lucu.html Category: Network Tested-With: GHC == 6.10.1 -Cabal-Version: >= 1.2.3 +Cabal-Version: >= 1.6 Build-Type: Simple - Extra-Source-Files: ImplantFile.hs NEWS @@ -28,14 +27,19 @@ Extra-Source-Files: examples/HelloWorld.hs examples/Makefile +Source-Repository head + Type: darcs + Location: http://darcs.cielonegro.org/Lucu/ + Flag build-lucu-implant-file Description: Build the lucu-implant-file program. Default: True Library Build-Depends: - HsOpenSSL, base, bytestring, containers, dataenc, directory, - haskell-src, hxt, mtl, network, stm, time, unix, zlib + HsOpenSSL, base >= 4, bytestring, containers, dataenc, + directory, haskell-src, hxt, mtl, network, stm, time, unix, + zlib Exposed-Modules: Network.HTTP.Lucu Network.HTTP.Lucu.Abortion diff --git a/Network/HTTP/Lucu/MIMEType/Guess.hs b/Network/HTTP/Lucu/MIMEType/Guess.hs index d6c4958..d94711a 100644 --- a/Network/HTTP/Lucu/MIMEType/Guess.hs +++ b/Network/HTTP/Lucu/MIMEType/Guess.hs @@ -102,9 +102,9 @@ serializeExtMap extMap moduleName variableName [] (HsUnGuardedRhs extMapExp) []] ] extMapExp = HsApp (HsVar (Qual (Module "M") (HsIdent "fromList"))) (HsList records) - comment = "{- !!! WARNING !!!\n" - ++ " This file is automatically generated.\n" - ++ " DO NOT EDIT BY HAND OR YOU WILL REGRET -}\n\n" + comment = "{- !!! WARNING !!!\n" + ++ " This file is automatically generated.\n" + ++ " DO NOT EDIT BY HAND OR YOU WILL REGRET -}\n\n" in comment ++ prettyPrint hsModule ++ "\n" where -- 2.40.0