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 = undefined
--     case readFromFay command of
--       Just (GetFib index r) -> render r $ fibs !! index
--       Nothing               -> invalidArgs ["Invalid command"]
