forked from filipg/gonito
16 lines
388 B
Haskell
16 lines
388 B
Haskell
|
module Handler.Fay where
|
||
|
|
|
||
|
|
import Fay.Convert (readFromFay)
|
||
|
|
import Import
|
||
|
|
import Prelude ((!!))
|
||
|
|
import Yesod.Fay
|
||
|
|
|
||
|
|
fibs :: [Int]
|
||
|
|
fibs = 0 : 1 : zipWith (+) fibs (drop 1 fibs)
|
||
|
|
|
||
|
|
onCommand :: CommandHandler App
|
||
|
|
onCommand render command =
|
||
|
|
case readFromFay command of
|
||
|
|
Just (GetFib index r) -> render r $ fibs !! index
|
||
|
|
Nothing -> invalidArgs ["Invalid command"]
|