[Added an example of lucu-implant-file.
pho@cielonegro.org**20071003102701] {
hunk ./.boring 58
+^examples/Implanted$
+^examples/MiseRafturai\.hs$
hunk ./examples/HelloWorld.hs 16
- runHttpd config resources
+ do putStrLn "Access http://localhost:9999/ with your browser."
+ runHttpd config resources
addfile ./examples/Implanted.hs
hunk ./examples/Implanted.hs 1
-
+import MiseRafturai
+import Network
+import Network.HTTP.Lucu
+
+main :: IO ()
+main = let config = defaultConfig { cnfServerPort = PortNumber 9999 }
+ resources = mkResTree [ ([], miseRafturai) ]
+ in
+ do putStrLn "Access http://localhost:9999/ with your browser."
+ runHttpd config resources
+
hunk ./examples/Makefile 1
-build:
- ghc --make HelloWorld -threaded -fglasgow-exts -O3
+build: MiseRafturai.hs
+ ghc --make HelloWorld -threaded -O3
+ ghc --make Implanted -threaded -O3
hunk ./examples/Makefile 9
- rm -f HelloWorld *.hi *.o
+ rm -f HelloWorld Implanted MiseRafturai.hs *.hi *.o
+
+MiseRafturai.hs: mise-rafturai.html
+ lucu-implant-file -m MiseRafturai -o $@ $<
addfile ./examples/mise-rafturai.html
hunk ./examples/mise-rafturai.html 1
-
+
+
+
+ Mise Rafturaí
+
+
+ Mise Rafturaí
+
+
+ Mise Rafturaí an file
+ Lán dúċais is gráḋ
+ Le súile gan solas
+ Le ciúnas gan crá
+
+
+
+ Ag dul síar ar m'aistear
+ Le solas mo ċroí
+ Fann agus tuirseaċ
+ Go deireaḋ mo ṡlí
+
+
+
+ Féaċ anois mé
+ Is mo ċúl le ḃfalla
+ Ag seinm ceoil
+ Do ṗócaí folaṁ
+
+
+
}