Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 46 lines (38 sloc) 1.576 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
module DepTypes where

import Slides
import Frame hiding (ruby)
import qualified Frame
import Latex
import Text.PrettyPrint.HughesPJ (render)

main = putStrLn $ render $ renderLhs agda

agda = Presentation "Silver Bullet: Dependent Types" "Chris Eidhof" asections

asections = [ introduction
           , Section "The Action" []
              [ Section "Typing the shell" [] []
              , Section "Relational databases" [] []
              , Section "Other examples" []
                [ Section "Printf" [] []
                , Section "XML" [] []
                ]
              ]
           ,Section "Conclusion" []
             [ Section "The Crisis" [] []
             , Section "The Resolution" [] []
             , Section "The Solution"
               [photoCredits]
               []
             ]
           ]

introduction = Section "Introduction"
               [ frame "" (titlePage {- <&> image "images/silver-bullet.jpg" 4 -})
               , frame "Curl in Ruby" rubyCode
               ]
               [ Section "Curl" [] []
               , Section "The solution: dependent types" [] []
               ]


rubyCode = Frame.ruby "def curl(url, port)\nreturn \"Hello, world.\"\nend"

photoCredits = frame "Photo credits" (text "All photos are from flickr: " <&> bullets
                                           [ "Silver bullet: monkeyc" , "Abacus: ansik"
                                           , "Tape: mattblaze" , "Databases: (nz)dave"
                                           , "Ammo: rwr" ]
                                     )
Something went wrong with that request. Please try again.