handlers :: ServerPart Response
handlers = msum
    [ dir "pong" $ ok (toResponseBS "text/plain" "pong")
    , serveFile (asContentType "image/png") "FiringGeometry.png"
    ]
handlers :: ServerPart Response
handlers = msum
    [ dir "pong" $ ok (toResponseBS "text/plain" "pong")
    , serveFile (asContentType "image/png") "FiringGeometry.png"
    ]
handlers = msum
    [ dir "pong" $ ok (toResponseBS "text/plain" "pong")
    , serveFile (asContentType "image/png") "FiringGeometry.png"
    ]