#    apt-get install -y --no-install-recommends wget && \
#    echo 'deb http://apt.postgresql.org/pub/repos/apt/ trusty-pgdg main' > /etc/apt/sources.list.d/pgdg.list && \
#    wget --quiet -O - https://www.postgresql.org/media/keys/ACCC4CF8.asc | apt-key add - && \
# Install npm, then use it to get purescript, pulp and bower
RUN apt-get install -y --no-install-recommends nodejs
RUN apt-get install -y --no-install-recommends npm
RUN npm install -g npm 
# Fix executable name used by the purescript npm installer
RUN ln -s /usr/bin/nodejs /usr/local/bin/node

# Build the client application and install it where snap can serve it
ADD ./client /opt/aftok/client
WORKDIR /opt/aftok/client
RUN npm install
RUN bower install
RUN pulp build
RUN pulp browserify --optimise --to dist/aftok.js
ADD ./dist /opt/aftok/server/static

import Control.Alt ((<|>))

--import Control.Alt ((<|>))

import Control.Monad.Eff.Console (CONSOLE(), log)

import Data.Either (Either(..))

import Data.Maybe (Maybe(..))
--import Data.Either (Either(..))

import Data.Foreign.Class (readProp)

--import Data.Foreign.Class (readProp)

import Data.Functor.Eff (liftEff)

import Network.HTTP.Affjax (AJAX(), post)

import Network.HTTP.Affjax (AJAX(), affjax)
import Network.HTTP.Method 
import Network.HTTP.StatusCode 

type AppEffects eff = HalogenEffects (ajax :: AJAX | eff)

type AppEffects eff = HalogenEffects (console :: CONSOLE, ajax :: AJAX | eff)

    _ <- liftAff' (fetchJS user pass)

    result <- liftAff' (login user pass)
    _ <- liftEff case result of
       OK -> log "Login succeeded"
       Forbidden -> log "Password incorrect"
       Error m -> log m.message

data LoginResponse 
  = OK 
  | Forbidden 
  | Error { status :: StatusCode, message :: String }

fetchJS :: forall eff. String -> String -> Aff (ajax :: AJAX | eff) String
fetchJS user pass = do
  result <- post "https://aftok.com/login" user
  let response = result.response
  return case readProp "js" response <|> readProp "error" response of
    Right js -> js
    Left _ -> "Invalid response"

login :: forall eff. String -> String -> Aff (ajax :: AJAX | eff) LoginResponse
login user pass = do
  result <- affjax $ { method: POST
                     , url: "/login"
                     , headers: []
                     , content: Nothing :: Maybe String
                     , username: Just user
                     , password: Just pass
                     }
  pure $ case result.status of 
    StatusCode 403 -> Forbidden
    StatusCode 200 -> OK
    other -> Error { status: other , message: result.response }

  , staticAssetPath :: System.IO.FilePath

          <*> C.lookupDefault "/opt/aftok/server/static/" cfg "staticAssetPath"

import           Snap.Snaplet.Auth.Backends.PostgresqlSimple

import           Snap.Snaplet.Auth.Backends.PostgresqlSimple

import Snap.Util.FileServe (serveDirectory)

  let loginRoute          = requireLogin >> redirect "/home"
      registerRoute       = void $ method POST registerHandler
      acceptInviteRoute   = void $ method POST acceptInvitationHandler

  let loginRoute         = method GET requireLogin >> redirect "/home"
      xhrLoginRoute      = void $ method POST requireLogin
      registerRoute      = void $ method POST registerHandler
      acceptInviteRoute  = void $ method POST acceptInvitationHandler

  addRoutes [ ("static", serveDirectory $ staticAssetPath cfg)

  addRoutes [ ("login",             loginRoute)

            , ("login",             loginRoute)   
            , ("login",             xhrLoginRoute)