Generate both a Haskell function and a SQL express

Run Settings
LanguageHaskell
Language Version
Run Command
{-# LANGUAGE GADTs, KindSignatures, TypeOperators #-}
data InvoiceLine = InvoiceLine
{ ilDescription :: String
, ilQuantity :: Int
, ilAmount :: Int
}
data (:->:) :: * -> * -> * where
Sum :: e :->: Int -> [e] :->: Int
(:-:) :: e :->: Int -> e :->: Int -> e :->: Int
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Editor Settings
Theme
Key bindings
Full width
Lines