App.elm

import Sql
import Sql.Param

findArticleById : Int -> Result Sql.Error Article
findArticleById id =
  let
    query =
      "SELECT articles.id, articles.title, article.body WHERE articles.id = :id LIMIT 1"
  in
  Sql.queryWithParams query [ ("id", Sql.Param.int id) ]
  |> Sql.first

Sql.Decode.elm

module Sql.Decode exposing (..)

type Decoder a = ...


column : Decoder a -> String -> Decoder a

string : Decoder String

integer : Decoder Int

float : Decoder Float

bool : Decoder Bool

Sql.elm

module Sql exposing (..)


type Query a = Query
    { decoder : Decoder a
    , encoder : Encoder a
    , query : String
    , params : List (String, Param)
    }


execute : Query a -> Result Error a