daaoke的专栏

本文档为《Practical Web Development with Haskell Master the Essential Skills to Build Fast and Scalable Web Applications》勘误文档操作系统 mac 10.15.71.安装stack[P19]我采用curl方式进行安装2.IDE [P21]书中采用Haskero。但是经过blog确认，此插件已经不在维护，我安装VsCode和Haskell(legacy).所以跳过`stack b.

需求：搭建一个灵活且通用的编写编译Haskell代码的方案。要求Windows,Linux,Mac三端通用，且迁移代码代价最小首先找到一个最方便的Haskell编写IDE选择方案有如下。IDEA+Haskell插件,Ecelipse+Haskell插件，VSCode+Hashkell插件，Vim+Haskell插件，Xmonad(没用过)，Mac App Store的Haskell。如果选择插件方案，需要考虑是采用Stack还是Cabal。目前Haskell开发推荐Stack工具首先idea

yesod-bin

Yesod的最基本的Html的渲染计数

yesod windows 安装

按照书上第八章的内容，我们来创建一个表单。代码无误，但是有一点，默认的库使用了Google的CDN。这在大局域网当然没法用。我们来改造一下首先我们要搞定自己的静态资源(如果你有CDN，可以跳过这里)1.安装yesod-static安装过程会提示有些库找不到，可以一个个的手动安装，一定可以成功的2.让代码识别出我们的静态文件夹参看Haskell之Yesod开发–边踩坑边开发(

接下来复制三段代码，从P60最后到P65。要注意第三段代码， template.lucius需要使用全路径引用。否则会报错找不到文件 对于第三段代码，我们执行一下，会看到控制台输出了文件的内容接下来复制P67页的代码。这里我们会了解到ihamlet是如何使用的然后复制P68页的代码。我们会看到如何渲染一段简单的Html标签语言然后我们稍作一点替换import Text.Balze.Hhtml.R

问题导出move i = do x <- left i tell "Go" y <- left x return y其中left i = writer ( x -1,"move left\t'):t tell "G0" :: MonadWriter [Char] m => m ()问题tell "Go"的上下文到底在哪里我们一步步的解开move :: Int ->

代码data BookType = History | Music deriving (Show,Eq)newtype MyBook = MyBook{bookname::BookType -> String}newtype HisBook = HisBook{headBook::BookType -> Int->String}newtype HerBook i r = HerBook{l

在Yesod中载入Template文件

haskell yesod

yesod-linux

Yesod获取静态文件和带参数的Route渲染

Haskell之Yesod开发–基础环境开发环境

参看https://www.fpcomplete.com/blog/2012/10/yesod-tutorial-1-my-first-web-site1。安装yesod cabal install yesod 就可以了。2.在

--Exercise 4.17rangeProduct:: Int->Int -> IntrangeProduct a b | a > b = 1 | a == b = a | otherwise = a* b * ( rangeProduct (a+1) (b-1))fac :: Int -> Intfac a = rangeProduct 1 a--E

import Data.Char-----------------------------Exercise 5.26--Exercise 5.25--Exercise 5.24--Exercise 5.23duplicate :: String -> Int -> Stringduplicate s 1 = sduplicate s n = s ++ (dupli

--Exercise 6.35--Exercise 6.34--Exercise 6.33--Exercise 6.32printImage :: Image -> IO()printImage i = print i--Exercise 6.31moveImage:: Image -> Int -> Int -> ImagemoveImage (i,(x,y)) dx d

--Exercise 6.47makeBill :: TillType -> BillTypemakeBill [t] = [(myLookup t)]makeBill (t:ts) = (myLookup t):(makeBill ts)--Exercise 6.46mydatabase:: Database mydatabase = [(123,"egg",23)]myLoo

m个舞者和n和领舞者跳舞规则1:舞者不能和同一个领舞者跳两次以上规则2:舞者不能跳同一个舞曲一次以上求出所有组合import Data.List{-领舞者-}type Leader = String{-舞蹈-}type Daunce = String{-跳舞卡片-}data Card = Card{leader::String ,daunce::Stri

Haskell Yesod web

Haskell Yesod

设置网站Hostinstance Yesod XXX where approot = ApprootStatic "http://static.example.comn/wiki"注意：使用ApprootStatic的时候，URL是不需要带上最后的/的还可以使用ApprootMaster和ApprootRequest，具体参看文档Url操作renderRoute:将一个字符串分解为一个

Haskell yesod

247页代码247页x<- left' i ==x<- writer(4-1,"move left\n1")y (Writer(x,v)) >> f = let...y <- left'(Writer(3,"move left\n1"))y <- let(Writer(y,v')) = left' 3 in Writer(y,"move left\n1" 'mappend